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PREFACE 



This publication discusses the internal 
logic of the processor-to- processor (PTOP) 
subroutines for data transmission between a 
System/360 and an 1130 system. 



The publication is organized 
sections as follows: 



into five 



• I ntroduc t i on , which describes the pur- 
pose, environment, and major divisions 
of PTOP. 

• Method of Operation , which describes 
the basic operations including control 
and data flow in PTOP. 

• 1130 PTOP Data Transmission Modules , 
which describes the 1130 data transmis- 
sion routines. 

• System/360 PTOP Data Transmission Mod- 
ules , which describes the System/360 
data transmission routines. 

• System/360 Conversion Routines , which 
describes the data conversion routines 
available only in the System/360. 

Appendixes at the end of this publica- 
tion include a description of the PTOP 
control blocks, a module directory, data 
transmission message formats, data conver- 
sion formats, and other reference material 
related to the program. 



USE OF THE PUBLICATION 

Persons using this PLM for educational 
purposes or to recall the structure of the 
support should read the "Introduction" and 
"Method of Operation" sections. 

Persons using this PLM to perform main- 
tenance or modification will find the 
detail in the individual module descrip- 
tions and the appendixes useful. 



For detailed information about program- 
ming techniques used in these routines, 
refer to the applicable program listings. 



PREREQUISITE PUBLICATIONS 



Familiarity with the following publica- 
tions and their prerequisites is assumed: 



IBM System/360 Operating System and 1130 
Disk Monitor System: System/360-1130 
Data Transmission for FORTRAN , Form 
C27-6937 



IBM System/360 Operating System : 

Assembler Language , Form C28-651U 

IBM System/360 Operating System : 
Basic Telecommunications Access 
Method , Form C30-2004 

IBM 1130 Assembler Language , Form 
C26-5927 



RECOMMENDED PUBLICATIONS 

In addition, the following publications 
may be convenient for reference: 

IBM System/360 Operating System: Basic 
Telecommunications Access Method Pro- 
gram Logic Manual , Form Y30-2001 

IBM 1130 Subroutine Library , Form 
C26-5929 

IBM 1130 Functional Characteristics , 
Form A26-5881 

IBM 1130 Synchronous Communications 
Adapter Subroutines , Form C26-3706. 
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INTRODUCTION 



The data transmission and data conver- 
sion routines described in this publication 
constitute a program that provides the 
capability of transmitting data between an 
IBM System/360 and one or more remote IBM 
1130 Computing Systems. These routines 
alter the data as necessary to reconcile 
differences in internal data formats in the 
two systems. 

Within this publication, the data trans- 
mission and data conversion routines are 
referred to as the processor-to-processor 
program, or PTOP. They are primarily 
intended for use with the FORTRAN IV lan- 
guage, but may also be used with the 
Assembler Language. Separate sets of data 
transmission routines are provided for the 
System/360 and the 1130 system. Conversion 
routines are provided only for the System/ 
360. 



PURPOSE AND ENVIRONMENT OF THE PROGRAM 

PTOP's main purpose is to enable the 
user to transmit data without detailed 
knowledge of telecommunications. Its func- 
tions include: 

• Initializing the communication line. 

• Transmitting messages over the communi- 
cation line. 

• Interpreting messages received over the 
communication line. 

• Inserting proper transmission- line con- 
trol characters. 

• Transmitting user data. 

• Rearranging data to the format used by 
the receiving system. 

• Receiving user data. 

• Checking for input/output errors and 
making the error condition status 
information available to the user. 

The program is divided into two major 
portions: one that functions in the 1130 
and one that functions in System/360. The 
portion that functions in the 1130 operates 
under control of the 1130 Disk Monitor 
System, Version 2. The portion that func- 
tions in System/360 operates under control 
of the System/360 Operating System. 



Execution of the program remains the 
same whether it is invoked by the user from 
a FORTRAN program or from an Assembler 
Language program. In FORTRAN IV, subrou- 
tines are activated by the CALL statement. 
In the Assembler Language, subroutines are 
activated by the CALL macro instruction 
(System/360) and the CALL statement (1130). 



1130 DISK MONITOR SYSTEM ENVIRONMENT 

The synchronous communications adapter 
(SCA) enables the 1130 system to function 
as a data transmission terminal which may 
use either switched or non-switched trans- 
mission line facilities. The SCA sends or 
receives data over communication lines in 
binary synchronous communications (BSC) 
mode using the transparency feature. 

In the 1130, the Disk Monitor System 
governs execution of the user's program 
which directs the use and functioning of 
the 1130 data transmission routines. In 
turn, the 1130 data transmission routines 
use the synchronous communications adapter 
subroutine (SCAT2) that controls transmis- 
sion and reception of data over communica- 
tion lines. SCAT2 is described in the 
publication IBM 1130 Synchronous Communica- 
tions Adapter Subroutines , Form C26-3706. 

The 1130 data transmission routines must 
reside in the subroutine library located in 
the user area or the fixed area of disk 
storage. 

During execution of a program, SCAT2 and 
the Telecommunications Monitor routine 
(module GTP01) in the PTOP program must 
remain resident in storage. All other data 
transmission routines in the 1130 PTOP 
program may be designated as LOCAL records 
to be loaded into an overlay area as they 
are called. 



SYSTEM/360 OPERATING SYSTEM ENVIRONMENT 

To send and receive data over communica- 
tion lines, the System/360 requires an IBM 
2701 Data Adapter Unit or an IBM 2703 
Transmission Control Unit. These devices 
must support binary synchronous communica- 
tions with the transparency feature in a 
half-duplex point-to-point environment. 
They also must use the EBCDIC transmission 
code. 

In System/360, the operating system con- 
trol program governs execution of the 
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user* s program which directs the use and 
functioning of the data transmission and 
data conversion routines. In turn, the 
System/360 y data transmission routines use 
the Basic Telecommunications Access Method 
(BTAM) that controls transmission and re- 
ception of data over communication lines. 



LINKAGE BETWEEN THE USER'S PROGRAM AND PTOP 

Linkage between the user's program and 
the PTOP program includes transfer of con- 
trol and passing of information. The fol- 
lowing paragraphs describe how this linkage 
is established in the 1130 and System/360. 



The System/360 data transmission rou- 
tines, their internal support routines, and 
the data conversion routines are identified 
in System/360 by 8-character module names. 
These names are included in the routine 
descriptions and are listed in Appendix B. 



Residence is determined at system 
generation time via the PTOP macro instruc- 
tion. If the LIB parameter is specified 
equal to FORTLIB or if the LIB parameter is 
not specified, the data conversion routines 
and the Controller (internal support rou- 
tine) reside in the FORTRAN library, while 
the rest of the PTOP routines reside in the 
link library. If the LIB parameter is 
specified equal to LINKLIB, all System/360 
PTOP routines reside in the link library. 



The Controller and the data conversion 
routines are processed by the linkage edi- 
tor at the same time as the user's program 
is processed by the linkage editor. These 
routines remain in main storage throughout 
execution of the user's program. The rest 
of the System/360 PTOP routines are either 
loaded during the initialization procedure, 
or linked to whenever they are called. 



LINE CONTROL 

Standard transmission line control pro- 
cedures are implemented in the PTOP pro- 
gram. These procedures support binary 
synchronous communications using the EBCDIC 
code employed in transparent-text mode, and 
are described in the IBM publication Gener- 
al Information — Binary Synchronous Com- 
munications , Form A27-300U^ 

Control characters are required for each 
data transmission message to define por- 
tions of the message and to control its 
transmission. Appendix C describes and 
illustrates the formats of the messages 
supported in this program. 

Each message block that is transmitted 
is checked for transmission accuracy at the 
receiver before the transmission continues 
by using CRC-16 (cyclic- redundancy check). 
CRC-16 is described in the IBM publication 
General Information — Binary Synchronous 
Communications , Form A27-3004. 



Interpretation of the FORTRAN CALL 
Statement 

In a FORTRAN program, the CALL statement 
is interpreted to produce linkage to the 
entry point of the specified routine. The 
arguments specified by the user in the CALL 
statement are placed in an argument list, 
referred to as a parameter list. In 
System/360, when control is passed to the 
routine, register 1 contains the address of 
this parameter list. In the 1130 system, 
the parameter list follows the Branch 
instruction corresponding to the CALL 
statement . 

In both systems, the parameter list 
contains an entry for each argument passed 
in the order designated by the user. 
Entries consist of the addresses of the 
actual parameter values. In System/360, 
each entry occupies a fullword that begins 
on a fullword boundary. In the 1130 sys- 
tem, each entry occupies one 16-bit word 
except when the 1130 program calls GTNIT 
and specifies the name of an asynchronous 
routine. This exception is shown in the 
detailed description of the 1130 GTNIT 
routine. 

Figure 1 shows typical parameter lists 
in both systems after they have been 
expanded to contain the user-specified 
arguments. Interpretations of an 1130 call 
to GTWRT and a System/360 call to GTRED are 
illustrated. Following the call is the 
instruction (s) transferring control to the 
appropriate routine. Next, the parameter 
list is shown together with the information 
to which each parameter points. Note that 
register 1 points to the parameter list in 
System/360. 

Interpretation of the Assembler Language 
CALL 

The CALL statement in the 1130 Assembler 
Language takes the form of an indirect 
(two-word) BSI (Branch instruction), after 
the core image is constructed. Through the 
transfer vector table, control is passed to 
the entry point named in the CALL statement 
and the corresponding ENT (Define Subrou- 
tine Entry Point) or ISS (Define Interrupt 
Service Entry Point) statement. When the 
BSI is executed, the address of the first 
word following it is placed in the entry 
point location, and control is transferred 
to the first word following the entry 
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1130 SYSTEM 
CALL GTWRT (us erarray, elcount, datatype, control opt) 
BSI I (Address of transfer vector entry for GTWRT) 



of "userarray* 
of "el count" 



| Address 

I 

| Address 

I 

| Address of "datatype" 
l_ 

| Address of "controlopt* 



•1130 Word- 



r 1 

— H Array from which data will be written. | 
y T j 

— ^ Count | Number of elements to write. 

F 1 

-- H 1 to 5 | Defines format of data. 
^ A 

-*H 1 or 2 | Transmit to mainline or 
L J asynchronous program. 



SYSTEM/360 



CALL GTRED ( datas etref , temparray, elcount , datatype) 
L R15,=V (GTRED entry point in IKDGTCLR) 
BALR R14,R15 



r n 

| Register 1 | 
l ,. J 



r 1 

| Address of "datasetref" 
| 

| Address of "temparray" 
t 

| Address of "elcount" 

j. 

| Address of "datatype" 

i 

-« 4 Bytes 



r n 

— H 1 to 99 j Data set reference number. 
y i , 

— H Array to which data is to be moved. | 
j. r j 

— H Count | Number of elements to read. 

i- ^ 

— H 1 to 5 | Defines format of data. 

L J 



Figure 1. Typical Parameter Lists in the 1130 System and System/360 



point. The user's parameter list must have 
been defined following the CALL statement. 

The CALL macro instruction in the 
System/360 Assembler Language branches and 
links to the entry point named in the CALL 
macro instruction and the address parame- 
ters are expanded to form the parameter 
list. When control is passed to the PTOP 
program, register 1 contains the address of 
the parameter list. However, the Control- 
ler passes the address of the parameter 
list to the desired subroutine in a dif- 
ferent register. 

Contents of the parameter lists in both 
systems are the same as those shown in 
Figure 1. 



MAJOR DIVISIONS OF THE PROGRAM 

As mentioned previously, the PTOP pro- 
gram is divided into two portions: one 
that functions in the 1130 system and one 
that functions in the System/360. Data 
transmission facilities are basically the 
same in both portions. A set of routines 
is provided in each system to establish 
communication links between an 1130 problem 
program and a System/360 problem program, 
to transmit data between the programs, to 
receive transmitted data, to end the com- 
munication, and to reconcile differences in 
internal data formats in the two systems. 
Storage areas (called control blocks) are 
established in both systems to facilitate 
this communication. 
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Major divisions of the PTOP program are 
represented by blocks with heavy lines. 



Figure 2. Relationship Among Major Divisions of the Program 



Data conversion routines are provided in 
the System/360 to invert and reformat the 
FORTRAN arrays. Separate conversion rou- 
tines are not available in the 1130. 

Major divisions of the PTOP program are 
shown in Figure 2. The figure depicts the 
relationship among the user programs, data 
transmission routines, data conversion rou- 
tines, the System/360 Operating System, and 
the 1130 Disk Monitor System. Note that 
the actual transmission of data is done 
through use of BTAM in System/360 and the 
synchronous communications adapter subrou- 
tine called SCAT2 in the 1130 system. 



TERMINOLOGY USED IN THIS PUBLICATION 

Terminology used to describe actual data 
transmission varies with the system (1130 
or System/360) being described. Thus, sev- 
eral synonomous terms are used to define 
similar functions. Terms with related 
meanings are as follows: 

• Send, transmit, or write refers to the 
sending of data transmission messages 
(output) to the other system. 

• Receive, or read refers to the recep- 
tion of data transmission messages 
(input) sent by the other system. 

The 1130 PTOP program performs its data 
transmission by calling SCAT2 and specify- 
ing the desired function. Functions used 
by the 1130 PTOP program are: 

• Transmit Initial Transparent Text fol- 
lowed by Transmit End. 



• Transmit End (Do Not Close) . 

• Receive Initial. 

• Receive Continue. 

• Receive Repeat. 

• Close* 

The System/360 PTOP program performs its 
data transmission by passing control to 
BTAM through the use of macro instructions. 
Functions used by the System/360 PTOP pro- 
gram are: 

• WRITE Initial Transparent with Reset 
(TIXR) . 

• WRITE Reset (TR) . 

• READ Initial (TI). 

• READ Continue (TT) . 

• RESETPL (to reset the communication 
line) . 

These functions are mentioned throughout 
this publication. 



FORMAT OF ROUTINE DESCRIPTIONS 

Detailed descriptions of the PTOP 
modules are contained in the following 
sections: 

• "1130 PTOP Data Transmission Modules." 
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"System/360 PTOP Data Transmission 
Modules . " 



• Entry , which identifies the point where 
the module is entered. 



• "System/360 Conversion Routines." 

Each description contains the following 
information: 

• Module name (identification) for each 
routine is included in the heading for 
that particular routine. 

• Chart identification (s ) , where flow- 
charts are included for the module. 
Flowcharts for modules appear at the 
end of their respective sections. 

• Function , which states the purpose of 
the module. 



• Exit , which states where the module 
passes or returns control. 



• Input , which defines the information 
passed to the module. 



• Output , which defines the information 
passed from, or made available by, the 
module. 

• Operation , which describes the manner 
in which the module performs its 
function (s) . 
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METHOD OF OPERATION 



Data transmission between an 1130 system 
and a System/360 follows a distinct path 
through the following basic operations: 

• Initializing communication. 

• Transmitting and receiving data 
including: 

(1) Processing input/output 
interruptions ; 

{2) Processing input/output errors; and 

13) Testing input/ output status. 

• Converting data. 

• Monitoring asynchronous routine 
processing. 

• Terminating communication. 

This section analyzes each of these 
operations to describe the control and data 
flow among the PTOP routines. The section 
is divided into three major subsections: 

• Overall Control and Data Flow , which 
briefly describes the manner in which 
the operations are performed in both 
systems. 

• 113-0 Control and Data Flow , which 
builds on the preceding subsection, 
adding specific details to complete the 
description of control and data flow 
among the 1130 PTOP routines. 

• g ivstem/360 Control and Data Flow , which 
builds on the first subsection, adding 
specific details to complete the 
description of control and data flow 
among the System/360 PTOP routines. 

OVERALL CONTROL AND DATA FLOW 

This section briefly describes the way 
in which the basic PTOP operations are 
performed in both the 1130 Disk Monitor 
System and in the System/360 Operating 
System. Additional details on each of the 
operations are contained under appropriate 
headings in the subsections entitled "1130 
Control and Data Flow" and "System/360 
Control and Data Flow. " 



lishing links through which the PTOP rou- 
tines can communicate with each other, with 
the user's program, with the 1130 Disk 
Monitor System, and with the System/360 
Operating System; and involves placing the 
systems in ready- to-read status. 



System ready-to-read status is estab- 
lished by initiating a Receive or Read 
Initial procedure successfully, thus condi- 
tioning the PTOP system to accept data that 
comes across the transmission lines. 

During initialization, the 1130 system 
always transmits the initialization message 
to the System/360. Acknowledgment of the 
message by the System/360 indicates that 
communication links are properly estab- 
lished in both systems and that the ini- 
tialization process can be completed. 

PTOP communication areas established 
during initialization are: 

• 1130 telecommunications control block 
(GTCOM) , 

• System/360 telecommunications control 
block (GTCB), and 



• System/360 unit 
(module IKDUATBL) . 



assignment 



table 



Initializing 



communicat ion is necessary 
before data transmission can be attempted. 
The process is invoked when GTNIT is called 
in the user's program. It involves estab- 



Through these areas, the PTOP routines 
obtain information and pass information to 
other PTOP routines. The format and con- 
tents of the GTCOM, the GTCB, and the unit 
assignment table are illustrated and 
described in Appendix A. 

Transmitting and receiving data is per- 
formed according to user-specified parame- 
ters in calls to GTWRT and GTRED. GTWRT 
begins procedures for transmitting data; it 
starts sending the appropriate data trans- 
mission message to the other system. GTRED 
begins procedures for receiving data; it 
places the user's program in xeady-to-read 
status thus preparing it to accept data. 

Unlike a system ready-to-read f to place 
the user's program in ready-to-read status, 
a ready-to-read message is first sent to 
the other system to indicate that the user 
is ready to read. Then the Receive or Read 
Initial procedure is initiated. 

Actual transmission of data is con- 
trolled by the synchronous communications 
adapter subroutine (SCAT2) in the 1130 Disk 
Monitor System and by the Basic Telecom- 
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raunications Access Method (BTAM) in the 
System/360 Operating System. 



Each operation requested by the user 
goes through various stages during data 
transmission before the operation is com- 
pleted. That is, an operation may be: 
queued but not started; started but not 
completed; completed satisfactorily; or 
completed with error condition. During the 
various stages of data transmission, PTOP 
routines place an appropriate code in the 
GTCOM (for the 1130 program) and the GTCB 
(for the System/360 program) to indicate 
the status of the last requested operation. 



Processing input/output interruptions 
includes necessary control program process- 
ing functions followed by PTOP processing 
functions for controlling the use of the 
communication line. The PTOP routines base 
their actions on the transmission status 
(data transmission stage) of the inter- 
rupted program. This transmission status 
is reflected by information found in the 
PTOP control blocks. 

An input/output interruption can occur 
while an input/output operation is in pro- 
gress as well as when the operation has 
been completed. Overlapped input/output 
capability is supported by the PTOP 
routines. 

Processing input/output errors detected 
as a result of receiving an interruption is 
performed by SCAT2 and the Telecommunica- 
tions Monitor routine in the 1130 system 
and by BTAM and the operating system in 
System/360. 

Input/output errors detected during data 
transmission are due to transmission inac- 
curacy (indicated when the CRC-16 character 
transmitted differs from the CRC-16 
character accumulated by the receiver) , 
negative acknowledgment sent by the receiv- 
ing system, timeout occurrences, contention 
on the transmission line, and equipment 
failure. Input/ output errors are retried 
according to standard error recovery proce- 
dures in both systems. Their detection and 
handling are transparent to the user. 

PTOP data transmission routines deter- 
mine the action to be taken after standard 
error recovery procedures have been applied 
by the detecting routines. Unrecoverable 
input/output errors, incorrect length 
errors, and both systems attempting to read 
at the same time cause PTOP to post appro- 
priate status codes in the control blocks 
for the benefit of the user. In the case 
of contention, the System/360 write opera- 
tion is delayed so that the 1130 write 
operation can take place first. 



Testing input/output status consists of 
making information about the user's most 
recent read or write operation available to 
his program. This function is performed 
only when it is invoked by the user via a 
call to the GTCLT subroutine. When 
requested, the status information is 
obtained from the 1130 GTCOM or the System/ 
360 GTCB and placed in the status code 
variable identified by the user's program. 

Converting data involves changing data 
arrays to resolve the differences in the 
FORTRAN data structure between the 1130 
system and System/360. It is performed 
only upon requests from the user's System/ 
360 program by calls to the data conversion 
subroutines. These subroutines are not 
available in the 1130 program. Therefore, 
they should be used prior to transmitting 
data to the 1130 system and after data is 
received from the 1130 system. 

Monitoring asynchronous routine process- 
ing involves informing both systems that 
the user requested an asynchronous routine 
to be invoked. Normally, the user's main- 
line programs in the two systems operate 
synchronously; that is, the operation of 
one program depends on developments in the 
other. A request to invoke a user- defined 
SUBROUTINE subprogram interrupts this syn- 
chronization. Hence, this subprogram is 
called an asynchronous routine. 

The system from which the request is 
made sends a message to the other system. 
When received, this message triggers the 
appropriate action to be taken by the PTOP 
routines so that the asynchronous routine 
is invoked without disturbing the current 
transmission status of the mainline program 
in that system. This involves saving the 
mainline program information reflecting the 
transmission status so that asynchronous 
routine processing does not destroy that 
information. In 1130, it is saved within 
the GTCOM. In System/360, it is placed in 
a special save area created when needed. 

Terminating communication involves deac- 
tivating the data transmission program 
within the requesting system. The process 
may be requested from a user's program in 
either system via a call to GTEND. To 
reestablish that communication link, the 
program that requested the termination must 
reinitialize the system via a call to 
GTNIT. 



1130 CONTROL AND DATA FLOW 

Figure 3 shows generalized control and 
data flow within the 1130 system. Subrou- 
tine (striped) blocks represent the PTOP 
modules described in this publication. 
Solid lines and arrows show control flow 
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1 . GTNIT waits for completion of the initialization input/output operation indicated 
intheGTCOMbyGTPOl. 

2. GTCLT may wait (at the user's request) for completion of an input/output operation 
indicated in the GTCOM by GTP01 . 

3. GTEND waits for completion of the input/output operation when the terminate 
communication link message is sent by GTP01; GTEND then calls SCAT2 to perform the 
Close operation. 
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To Interrupted Program 
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Data Flow 
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Figure 3. Generalized Control and Data Flow Within 1130 System 



from one module to another. Dashed lines 
and arrows show data flow which consists of 
information passed between the modules and 
the GTCOM. For data flow, arrows at both 
ends of the dashed line indicate the module 
may derive information from as well as 
contribute information to the GTCOM. The 
following paragraphs describe the control 
and data flow as shown in Figure 3. 

Control Flow 



tion, refer to "Processing Input/Output 
Errors" subsequently found in this sec- 
tion. ) 

• GTP01 then starts the next operation 
through the call processor in SCAT2, 
and finally returns control to the 
interruption processing portion of 
SCAT2, which in turn passes control to 
ILS01 to complete its level processing 
function. 



Control flow takes place as follows: 

• From the user's program, control passes 
to the appropriate data transmission 
routine. In 1130, there are five rou- 
tines corresponding to each of the 
subroutines that can be called. 

• The data transmission routines refer to 
and place information in the GTCOM 
(located in module GTP01) as indicated 
in Figure 3. Except for GTNIT and 
GTEND, these routines perform their 
functions completely through the use of 
the GTCOM, and return control to the 
user's program. 

• GTNIT passes control directly to the 
call processor in SCAT2 to perform part 
of the initialization operation, and 
waits for completion of the operation. 
(GTCLT may wait for completion of an 
operation, when requested to do so by 
the user..) 

• GTEND takes action to terminate com- 
munication by using the GTCOM. GTEND 
waits for completion of the operation, 
and passes control to SCAT2 to close 
synchronous communications adapter 
(SCA) operations before returning con- 
trol to the user's program. 

• SCAT2 transmits and receives messages 
via the SCA. The ensuing interruption 
causes control to be passed to the 
Interrupt Level Subroutine ILS01 to 
start processing the interruption. 
From there, control passes to SCAT 2 
which continues processing the inter- 
ruption. 

• At the end of an operation, SCAT2 
passes control to GTP01 for further 
interruption processing which includes 
input/output error processing, if 
necessary, and/or end-of-operation pro- 
cessing. GTP01 does not perform error 
processing and end-of-operation pro- 
cessing at the same time. Entry to the 
routine is always through the error 
processing portion, but if no errors 
are indicated, GTP01 immediately passes 
control to the end-of-operation pro- 
cessing portion. (For information on 
error handling at the end of an opera- 



• ILS01 returns control to the inter- 
rupted program at the next instruction 
following the point of interruption. 
This may be GTNIT, GTCLT, or GTEND if 
one of them is waiting for completion 
of an operation. 

Data Flow 

Data flow between the 1130 PTOP routines 
and the GTCOM as shown in Figure 3 is 
described in detail in the section "1130 
PTOP Data Transmission Modules." In addi- 
tion. Appendix A contains a summary table 
showing how the 1130 PTOP routines use the 
GTCOM fields. 

Additional details on each of the opera- 
tions in the 1130 system are contained 
under the appropriate headings in the fol- 
lowing paragraphs. 



INITIALIZING COMMUNICATION (1130) 

Linkage between the 1130 system and the 
System/360 is established whenever the ini- 
tialization process is completed in both 
systems . 

The initialization process in 1130 is 
invoked via a call to the GTNIT subroutine 
in the user's program. This call activates 
the GTNIT routine which performs the 
following: 

• Calls SCAT2 to transmit the initial- 
ization message to the System/360. 
This process results in the 1130 PTOP 
system being placed in a ready-to-read 
status. 

• Effects communication and control among 
the 1130 PTOP routines by initializing 
addresses and indicators in the GTCOM. 

Figure 4 traces the control flow during 
the 1130 initialization process. Detailed 
information is contained in the paragraphs 
that follow. 

Using SCAT 2 

To transmit an initialization message to 
the System/360, GTNIT calls the SCAT2 sub- 
routine, and waits for SCAT2 to complete 
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COMPUTER SYSTEM 



*****BI ********** 

* * 

* * 

* CALLS GTNIT *. 

* * 

* * 
***************** 



*****B2********** *****B3 ********** 

♦GTNIT * * * 

*_*-*-*-*-*-*-*-*WAITS * CONTROLS * 

.X* PREPARES FOR * X*TRANSMISSI ON OF*. 

* INITIALIZING * * MESSAGE * 

* CALLS SCAT2 * * * 
***************** ***************** 



******B5*** ******** 

. X SCA TRANSMITS 
* * 

************* 



*****C2* ********* 
*GTP01 * 

*-*-*-*-*-*-*-*-* 

* SETS *> 
♦PROPER FLAGS IN* 

* THE GTCOM * 
***************** 



*****C3 ********** 

* * 

* DETERMINES * 
.* COMPLETION OF *X . 

* OPERATION * 

* * 
***************** 



*****C4********** 

* * 

* SELECTS * 
,*PROPER ISS FOR *X. 

* SCA * 

* * 
***************** 



******C5* ********** 



************* 



*****D2** ******** 

* REQUESTS READ * 

* INITIAL FOR * 

* READY- TO-READ *. 

* STATUS AND * 

* RETURNS * 
***************** 



*****D3 ********** 

* * 

* PERFORMS * 
K* FUNCTION *. 

* REQUESTED * 

* * 
***************** 



*****E3 ********** 



***************** 



*****E4 ********** 

* RESETS * 
♦INTERRUPT LEVEL* 

.X*AND RETURNS TO * 

* INTERRUPTED * 

* PROGRAM * 
***************** 



******E5*** ******** 

* SCA ' 
PROCEEDS WITH 
* I/O 

************ 



*****F !**♦♦****** 

* CHECKS STATUS * 

* OF ATTEMPT TO * 
♦INITIALIZE AND *X. 
♦TAKES NEXT STEP* 

* * 
***************** 



*****F2********** 
*GTNIT * 

*-*-*-*-*-*-*-*-* 
.* TESTS GTCOM * 

* AND SETS * 

* •INITCODE" * 
***************** 



Figure 4. 1130 System Control Flow for PTOP Initialization Process 



the transmission. SCAT2 controls the 1130 
Synchronous Communications Adapter and 
checks for errors in the data being trans- 
mitted and received. When the transmission 
operation is completed, GTP01 receives con- 
trol through the normal interruption pro- 
cessing and determines if the communication 
line is initialized. Appropriate infor- 
mation is placed in the GTCOM, system 
ready-to-read status is established, and 
control is passed back through SCAT2 and 
ILS01 until it eventually returns to GTNIT. 



Effecting Communication and Contro l 

Communication and control among the PTOP 
routines is accomplished in the 1130 system 
by use of the GTCOM contained in the GTP01 
module. When brought into main storage, 
the GTCOM contains no information. Its 
fields are completed and updated during 
processing by the 1130 PTOP routines. 

The GTCOM is described in detail in 
Appendix A. Included in Appendix A is a 
summary table showing how each 1130 data 



transmission routine may affect the infor- 
mation located in the GTCOM fields. 



TRANSMITTING AND RECEIVING DATA (1130) 

Calls to GTWRT and GTRED start the 
transmission and reception of user data by 
invoking the Write Data (GTWRT) and Read 
Data (GTRED) routines respectively. 

Figure 5 traces the control flow for a 
read/write operation in the 1130 system 
along with the input/output interruption 
processing, input/output error processing, 
and input/output status testing. It 
depicts the functions involved in transmit- 
ting and receiving data which are described 
in the paragraphs that follow. 

Even though the initialization process 
conditioned the systems to receive data, no 
actual transfer of data between user pro- 
grams can occur unless the receiving pro- 
gram is conditioned to accept it (i.e., 
placed in a ready-to-read status) . In the 
1130 system, GTRED sets indicators and 
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completes appropriate fields in the GTCOM 
to indicate that the user ready-to-read 
message is to be transmitted and the user's 
program is to be placed in ready-to-read 
status. 

At interruption processing time,, GTP01 
first sends the message via SCAT2 to the 
System/360. Next, it prepares to read the 
data into the user's read buffer. To do 
this, GTP01 calls SCAT2 specifying the 
Receive Initial function. (The Receive 
Initial completes the process placing the 
user's program in ready-to-read status.) 
When data is received, GTP01 moves it to 
the user-specified working array omitting 
all control characters for use by the 
problem program. 

The transmission of data is started in 

the 1130 by GTWRT, which sets indicators 

and completes appropriate fields in the 

GTCOM. 

Information placed in the GTCOM results 
in GTP01 preparing either the data message 
or the asynchronous routine request message 
for transmission when it receives control 
at interruption processing time. GTP01 
calls SCAT2 to transmit the message. 

To prevent transmitting irrelevant in- 
formation over the communication lines, 
1130 integer data is packed and unpacked by 
GTP01. Before calling SCAT2 to transmit 
integer data, GTP01 packs the data con- 
tained in the user's array by placing only 
the first word (16 bits) of data from each 
element into the user's write buffer for 
transmission? the remainder of the element 
is irrelevant and, therefore, is ignored. 
After receiving integer data, GTP01 unpacks 
the data by placing each word of data 
appropriately within each element as it 
moves the data from the read buffer into 
the user's array. 

In the 1130, GTP01 inserts the necessary 
control characters at the beginning of 
every message transmitted in transparent- 
text mode. SCAT2 inserts control charac- 
ters at the end of every message 
transmitted. 

All data transmission messages including 
appropriate control characters and header 
information are illustrated and described 
in Appendix C, 

Processing Input/Output Interruption s 

When an interruption occurs in the 1130, 
control is passed to the Interrupt Level 
Subroutine ILS01. This subroutine is the 
1130 system module designed to service the 
input/output interruption defined as inter- 
rupt level 1 that applies to the SCA. 
ILS01 performs level processing for the 



interruption which includes selecting the 
correct device processing routine, clearing 
the level when interruption processing is 
complete, and returning control to the 
us er ' s prog ram . 

The device processing routine for SCA 
interruptions is the interruption process- 
ing portion of SCAT2. An interruption 
occurs after each character (8 bits of 
information) is transmitted or received by 
the SCA. 

If the count (number of characters) 
indicates there is more data to be handled, 
SCAT2 packs or unpacks a data character, 
sets or resets storage locations in prepa- 
ration for further reception or transmis- 
sion, and returns control to ILS01. 

If the interruption indicated the end of 
an operation, SCAT2 passes control to 
PTOP's interruption processing routine 
(GTP01) with the accumulator set to a value 
that indicates whether or not an input/ 
output error was detected. Zero indicates 
to GTP01 that error handling functions are 
not required (completion was satisfactory). 

When GTP01 determines it was a satisfac- 
tory completion, end-of- operation process- 
ing takes place. This processing inter- 
prets the information contained in the 
messages received and in various fields of 
the GTCOM, and determines which operation 
had just been performed and which operation 
should be performed next. GTP01 prepares 
the buffers as necessary and requests the 
appropriate function of SCAT2's call pro- 
cessing routine for the next input/output 
operation. 

GTP01 then returns control to SCAT2*s 
interruption processing routine, and SCAT2 
returns control to ILS01. ILS01 then 
clears the level of interruption in prepa- 
ration for the next operation, and returns 
control to the first word of the next 
instruction following the point of inter- 
ruption in the user's program. 

Processing Input/Output Errors 

In 1130, input/output errors are 
detected by SCAT2 upon completion of an 
input/output operation. 

SCAT2 retries certain input/output 
operations up to seven additional times 
before placing the appropriate value in the 
accumulator and passing control to GTP01 
for error handling functions. GTP01 then 
determines from the accumulator setting 
which input/output error occurred, and pro- 
cesses the error condition by placing the 
appropriate information in the GTCOM for 
future reference. GTP01 also determines 
whether the operation should be restarted. 
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COMPUTER SYSTEM 



*****B1 ********** 

* * 

* CALLS * 
*GTRED OR CALLS *. 

* GTWRT * 

* * 
***************** 



*****C1 ********** 

* RESUMES * 
♦PROCESSING NOT * 

* DEPENDENT ON *X 

* COMPLETION * 

* * 
***************** 



*****B2********** 
♦GTRED OR GTWRT * 
*-*-*-*-*-*-*-*-* 
K* SETS FIELDS * 

* IN GTCOM AND * 

* RETURNS * 
***************** 



*****B3 ********** 

* * 

* PACKS OR * 

* UNPACKS DATA *. 

* AND CONTINUES * 

* * 
***************** 



*****C4 ********** 

* * 

* SELECTS * 
.♦PROPER ISS FOR *X. 

* SCA * 

* * 
***************** 



******B 5**** ******* 
SCA 

* PROCESSES * 
•IX PREVIOUS 

* REQUEST * 

************* 

**** . 

* * . 

* C5 *.X. 

* * . 
**** 

X 
******C 5*** ******** 



************* 



*****D2********** 
♦GTPOl * 

*-*-*-*-*-*-*-*-* 

* HANDLES ERROR *X. 

* PROCESSING IF * 

* NECESSARY * 
***************** 



.* IS *. YES 
*. THERE AN I/O .*.... 

*. ERROR .* 



*****E3 ********** 
*TAKES RETRY OR * 

* COMPLETION * 
<* ACTION AS * 

* INDICATED BY * 

* GTPOl * 
***************** 



*****F2** ******** 

* SETS/RESETS * 

* GTCOM FIELDS. * 

* PREPARES *. 
♦MESSAGE. MOVES * 

* DATA * 
***************** 



*****F3 ********** 

* * 

* PERFORMS * 
«* FUNCTION *. 

* REQUESTED * 

* * 
***************** 



*****G3 ********** 



***************** 



*****G4********** 

♦ RESETS * 
♦INTERRUPT LEVELS 

.X*AND RETURNS TO ♦ 

♦ INTERRUPTED ♦ 

♦ PROGRAM ♦ 
***************** 



******G5***** ****** 

* SCA ♦ 

TRANSMITS OR 

♦ RECEIVES ♦ 

************* 



****1>H 1 ********** 



CALLS GTCLT 



***************** 



*****H2** ***♦♦*** 
♦GTCLT ♦ 

*-*-*-*-*-*-*-*-* 
<* * 

♦DETERMINES TEST* 
* FUNCTION * 

***************** 



.* GTCLT TO * 

♦.WAIT FOR I/O 

♦.COMPLETE .* 



♦****Kt ♦♦******** 

* * 

* CHECKS STATUS * 

* AND TAKES *X 
♦DESIRED ACTION ♦ 

* * 
***************** 



*****K2********** 

* ♦ 

* PASSES LAST * 
.* READ OR WRITE * 

* STATUS FROM ♦ 

* GTCOM ♦ 
*♦♦♦******♦****** 



Figure 5. 1130 System Control Flow for PTOP Read/Write Operation with Test Function 
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If so, it returns to SCAT2 with a non-zero 
value set in the accumulator that indicates 
the operation is to be retried, otherwise, 
GTP01 returns to SCAT2 with zero in the 
accumulator that indicates SCAT2 is to act 
as if a normal completion occurred . SCAT2 
performs retry or completion functions and 
goes back to GTP01 for further error pro- 
cessing or for end-of -operation processing. 
After end-of -operation processing, GTP01 
returns to SCAT2, which then returns to 
ILS01. 

For more information about 1130 error 
handling procedures, refer to the publica- 
tion IBM 1130 Subroutine Library . Form C26- 
5929. 

In case of an unrecoverable input/output 
error that occurred during a user's read or 
write data operation, GTP01 posts the com- 
pletion status in the GTCOM indicating that 
the operation is complete with error. 

Testing Input/Output status 

When an input /out put operation is 
requested by the user, GTRED or GTWRT 
places the appropriate status code in the 
GTCOM. When the input/output operation is 
started or completed, GTP01 places the 
appropriate status code for that operation 
in the GTCOM overlaying any other status 
code that was posted previously. The final 
status code posted by GTP01 for completion 
of an operation indicates whether the last 
read or write operation was completed suc- 
cessfully or with errors. 

To obtain this status code, the user's 
program must call the GTCLT subroutine. 
GTCLT places the status code from the GTCOM 
into the "statcode" variable specified in 
the call to the GTCLT subroutine. When 
requested to do so by the "testcode" argu- 
ment, GTCLT will wait until the current 
operation is completed before placing the 
status code in the variable for the user. 
However, GTCLT will not wait if a condition 
exists that warrants immediate return. 



CONVERTING DATA (1130) 

Data conversion is accomplished in 
System/360 only. As mentioned previously, 
it is performed only upon requests from the 
user's program. These requests invoke the 
data conversion routines in System/360 so 
that the data and arrays are transformed 
either into System/360 format (after being 
read) or into 1130 system format (before 
being written). 

The data transmission routines do not 
check any data formats during the process- 
ing. All user-defined data is handled as 
though it were always transmitted in 1130 



format over the transmission line. If the 
user fails to make use of the data conver- 
sion routines, unpredictable results may 
occur. 



MONITORING ASYNCHRONOUS ROUTINE PROCESSING 
(1130) 

When a request for the System/360 asyn- 
chronous routine is encountered in an 1130 
call to GTWRT, the appropriate fields in 
the GTCOM are completed by GTWRT so that 
the asynchronous routine request message is 
sent by GTP01 to notify the System/360. 
Then, whenever the asynchronous routine is 
ended, the System/360 transmits the appro- 
priate message to notify the 1130. In both 
cases, the receiving system communicates 
this information to its PTOP program 
through the appropriate fields in the GTCOM 
and the GTCB. 

Asynchronous routine processing in 
System/360 does not change the processing 
flow in the 1130 PTOP program. The 1130 
program continues performing along the same 
basic path shown in Figure 3. However, a 
change does occur in the 1130 PTOP program 
processing when the 1130 asynchronous rou- 
tine is requested. 

Figure 6 shows the control and data flow 
for invoking the 1130 asynchronous routine, 
starting with the request from the System/ 
360. ILS01 and SCAT2 take the same actions 
they would take for any other data trans- 
mission function. PTOP's actions are 
explained in the following paragraphs. 

When an asynchronous routine request 
message is received by the 1130, GTP01 
indicates in the GTCOM that the 1130 asyn- 
chronous routine is to be invoked. GTP01 
will not honor any ready-to-read message, 
data message, or user's read operation that 
may be pending. Thus, the transmission 
status of the user's mainline program 
remains unchanged once the asynchronous 
routine has been requested. GTP01 returns 
control to SCAT2, and eventually control 
returns to the user's mainline program. 
The next data transmission routine (except 
GTNIT) that obtains control in the 1130 
indirectly invokes the asynchronous 
routine. 

When the data transmission routine 
determines that the asynchronous routine is 
scheduled, it saves the entry status of the 
current call so that processing of the 
requested function can be continued later. 
It identifies itself as the caller by 
placing a predetermined value in an index 
register, and passes control to the secon- 
dary entry point named GTP02 in the Tele- 
communications Monitor routine. 
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NOTES : 

1 . I 1 ) indicates control flow through the 
— S processing of the 1130 asynchronous 
routine request. 

2.(2) indicates control flow through the processing 

^"^ that actually invokes the 1 130 asynchronous routine. 

Note that two interruptions for completed operations 
are necessary for invoking an 1 130 asynchronous routine. 
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Figure 6. Control and Data Flow for Invoking the 1130 Asynchronous Routine 



GTP02 indicates that the mainline pro- 
gram transmission status must be saved by 
GTP01 at interruption processing time 
before processing the next operation. 
GTP02 waits for the transmission status to 
be saved in the special GTCOM area, and 
then calls the asynchronous routine. 

The asynchronous routine may use the 
data transmission facilities during its 
processing. When the asynchronous routine 
is executing* control flow follows the same 
path taken during mainline program process- 
ing as shown previously in Figure 3. When 
execution is complete, the asynchronous 
routine must return control to the first 
word of the executable instruction follow- 
ing the point at which control was passed 
to it. This enables PTOP to notify the 
System/360 and to resume processing the 
mainline program requests. 

At interruption processing time, GTP01 
restores the mainline transmission status 
in the GTCOM. GTP01 then sends the asyn- 
chronous routine ended message to the 
System/360 via SCAT2. 

The invoking routine receives control 
after interruption processing is complete - 
When it determines that the asynchronous 
routine ended message has been sent, it 
returns control to the appropriate data 
transmission routine. Since another rou- 
tine may overlay the original caller con- 
trol is returned by a call to the secondary 
entry point in the data transmission rou- 
tine determined by the value passed in the 
index register. The data transmission rou- 
tine restores the call status saved for the 
mainline program, and resumes processing of 
the call before it returns control to the 
user* s mainline program. 



TERMINATING COMMUNICATION (1130) 

The End Communication routine (GTEND) 
becomes active when the GTEND subroutine is 
called in the user's 1130 program. GTEND 
begins the transmission of the terminate 
communication link message to the System/ 
360 by setting appropriate fields in the 
GTCOM. GTP01 sends the message to the 
System/360 via SCAT2. GTEND waits for 
completion cf the transmission operation, 
and then closes the communication line in 
the 1130. 

This communication link can be reestab- 
lished by reinitializing the 1130 system 
while the $ystem/360 is maintaining its 
communication link. After the communica- 
tion link is terminated by a call to GTEND 
in either system the 1130 PTOP program 
cannot communicate with the System/360. 
The 1130 PTOP program, however, remains 
intact (as long as there is no outside 



intervention) . Provided the System/360 
remains initialized, another call to GTNIT 
in the 1130 user's program enables the 
user's program to resume calling the PTOP 
data transmission routines just as if the 
communication link had not been broken. 

The communication link between the sys- 
tems can also be broken by a call to the 
GTEND subroutine in the user's System/3 60 
mainline program. This call causes the 
System/360 to transmit the terminate com- 
munication link message to the 1130. Upon 
receiving this message, GTP01 indicates in 
the GTCOM that the PTOP program will not 
perform any more input/output operations 
until the communication link is 
reestablished. 

GTP01 continues to send the initial- 
ization message at regular intervals until 
either (1) the System/360 program calls 
GTNIT and successfully recognizes that mes- 
sage, or (2) the 1130 program calls GTEND 
and terminates the 1130 communication link. 
If a satisfactory response is received from 
System/360, the communication link is 
reopened and processing resumes as normal. 

Abnormal termination of the 1130 program 
occurs if a System/360 call to GTWRT speci- 
fies that the PTOP program is to transmit a 
program termination request message to the 
1130. Upon receiving this request, the 
1130 PTOP program completely relinquishes 
control to the Disk Monitor System; it 
cannot be reinitialized to communicate with 
the program that caused its termination. 



SYSTEM/360 CONTROL AND DATA FLOW 

Figure 7 shows generalized control and 
data flow within the System/360. Subrou- 
tine (striped) blocks represent the PTOP 
modules described in this publication. 
Solid lines and arrows show control flow 
from one module to another. Dashed lines 
and arrows show data flow which consists of 
information passed between the modules, the 
GTCB, and the unit assignment table. For 
data flow, arrows at both ends of the 
dashed line indicate the module may derive 
information from as well as contribute 
information to the control block or table. 
The following paragraphs describe the con- 
trol and data flow as shown in Figure 7. 

Control Flow 

Control flow takes place as follows: 

• If a data conversion subroutine is 
called in the user's program, control 
passes directly to the appropriate data 
conversion routine. When its function 
is complete, the conversion routine 
returns control to the user's program. 
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• If a data transmission subroutine is 
called in the user , s program, control 
first passes to the Controller 
(IKDGTCLR) which consults the unit 
assignment table CIKDUATBL) and then 
routes control to the appropriate data 
transmission routine. 

• The data transmission routines manipu- 
late information in the GTCB. IKDGTNIT 
and IKDGTEND also manipulate infor- 
mation in the unit assignment table. 

• Except for IKDGTCLT, the data transmis- 
sion routines may pass control to BTAM 
if an input/output operation is not 
already in progress. 

• BTAM interfaces with the operating sys- 
tem control modules and sends or 
receives as requested. 

• An input/output interruption causes the 
Input/Output Supervisor to pass control 
to BTAM* s channel end appendage routine 
which performs channel end functions. 

• At the end of an input/output opera- 
tion, BTAM schedules the PTOP Interface 
Resolution routine (IKDGTIRB) to 
receive control. 

• IKDGTIRB refers to information in the 
GTCB, determines the operation that was 
just completed, places appropriate in- 
formation in the GTCB, determines the 
next operation to be performed, and 
passes control to BTAM to perform the 
desired operation. 

• IKDGTIRB then returns control to the 
operating system, which returns control 
to the interrupted program. This may 
be IKDGTNIT, IKDGTCLT, or IKDGTEND if 
one of them is waiting for completion 
of an operation. 

Data Flow 

Data flow between the System/ 360 PTOP 
routines, IKDUATBL,, and the GTCB as shown 
in Figure 7 is described in detail in the 
section "System/360 PTOP. Data Transmission 
Modules." Appendix A contains a summary 
table showing how the System/360 routines 
use the GTCB fields. 

Additional details on each of the opera- 
tions in the System/360 are contained under 
the appropriate headings in the following 
paragraphs . 



initialization procedures are completed in 
both systems. Linkage between the user's 
program and the System/360 PTOP routines is 
described in the following paragraphs. 



Establishing Linkage 

In System/360, linkage is established to 
the data transmission routines by the Con- 
troller which is entered at the appropriate 
entry point from a call in the user's 
program. The Controller first verifies the 
data set reference number. It then deter- 
mines whether the routine referred to is 
transient and should be linked to, or 
whether that routine is resident (loaded), 
in which case a branch and link instruction 
is used to pass control to the requested 
routine. The address for a resident rou- 
tine is found in the unit assignment table. 
Linkage between the user" s program and the 
specified routine is completed by passing 
the address of the user's parameter list in 
register 11. After execution of the data 
transmission routine is complete, control 
is returned to the user's program through 
the Controller. 

Linkage is established to the data con- 
version routines directly from the user's 
program. These routines return control to 
the user's program as soon as they have 
completed their operation. 

The System/360 initialization process is 
invoked via a call to the GTNIT subroutine 
in the user's program. This call causes 
the Controller (IKDGTCLR) to pass control 
to the Initialization routine (IKDGTNIT). 
The initialization process performs the 
following : 

• Loads the resident routines, builds 
operating system control blocks, and 
establishes a timer mechanism. 

• Uses BTAM to start a Read Initial 
procedure to receive the initialization 
message containing the password from 
the 1130 system. 

• Effects communication and control among 
the PTOP routines by establishing the 
GTCB and placing information in the 
unit assignment table. 

• Acquires storage for the user's read 
and write buffers. The sizes of these 
buffers are determined by parameters 
specified by the user when he calls the 
GTNIT subroutine. 



INITIALIZING COMMUNICATION (SYSTEM/360) 

Linkage between the System/360 and the 
1130 system is established whenever the 



Figure 8 traces the control flow during 
the initialization process. Detailed in- 
formation about the functions is contained 
in the paragraphs that follow. 
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COMPUTER SYSTEM 



*****B1 ********** 

* * 

* * 

* CALLS GTNIT *• 

* * 

* * 
***************** 



*****B2********** 
*IKDGTCLR * 
*-*-*—*-*-*-*-*-* 
K* PERFORMS * 

* PRELIMINARY * 

* FUNCTIONS * 
***************** 



*****C2** ******** 
*IKDGTNIT * 
*-*-*—*-*-*-*-*-* 

* CREATES GTCB. *. 

* DCB AND DECBi * 
♦CALLS FOR READ * 
***************** 



*****C3 ********** 

* CREATES * 

* CHANNEL * 

, X*PROGR AM . I SSUES*. 

* EXCP MACRO * 

* INSTRUCTION * 
***************** 



*****C4 ********** 

* ISSUES * 

* START I/O * 
<* COMMAND TO *■ 

* CHANNEL AND * 

* RETURNS * 
***************** 



*****D2********** 
♦IKDGTNIT * 
*-*-*-*-*-*-*-*-* 

* WAITS *> 

* FOR I/O * 

* COMPLETION * 
***************** 



*****D3 ********** 

* * 

* * 
.♦RETURNS CONTROL*X. 

* * 

***************** 



COMPLETION 
IS POSTED 
BY IKDGTIRB 
(SEE BELOW) 



.♦COMPLETION *. NC 
POSTED IN .*.. 
*. GTCB .* 



*****E3 ******* 



************** 



*****E4 ********** 

* * 
♦ISSUES A START ♦ 

.X*I/0 COMMAND TO *, 

* CHANNEL * 

* * 
***************** 



******£ 5*** ******** 

* FETCHES CAW * 
•X AND PROCESSES 
* COMMAND ♦ 

************* 



*****F2** ******** 

* DETERMINES IF * 

* COMMUNICATION * 
*WAS SUCCESSFUL * 

* SETS MNITCODE'^ 

* * 
***************** 



.* ARE *. 
► ALL 

OPERATIONS 
*. COMPLETE . 



*****F4** ******** 

* DETERMINES * 

* REASON FOR * 
.* INTERRUPTION * 

*AND GOES TO CEA* 

* ♦ 
***************** 



******F 5* ********** 

* EXECUTES * 

CHANNEL 

* PROGRAM * 

************* 



*****G1 ********** 
♦TESTS STATUS OF* 

* ATTEMPT TO * 
♦INITIALIZE AND *X. 
♦TAKES NEXT STEP+ 

♦ ♦ 
***************** 



*****G2****+++^++ 
♦IKDGTCLR ♦ 
♦-♦-♦-♦-*-*-*-*-* 
.* * 

♦RETURNS CONTROL* 
* * 

***************** 



*****G3********** 

* REPORTS I/O * 
♦COMPLETION AND ♦ 

* SCHEDULES ♦ 

* IKDGTIRB * 
***************** 



******G5**** ******* 
* ISSUES * 

. . .:. I /o 

♦INTERRUPTION * 
*******♦♦♦♦♦♦ 

OS CONTROL PROGRAM 



*****H4********** 

* POSTS * 

* COMPLETION OF * 
•X* OPERATION AND *. 

* RETURNS TO * 

* CONTROL PROG * 
***************** 



*****H5**** ****** 

* * 

* DISPATCHES * 
<* IKDGTIRB AS * 

* SCHEDULED * 

* * 
***************** 



*****J2********** 
♦IKDGTIRB * 

*-*-*-*-*-*-*-*-* 

♦ COMPARES ♦> 

♦ PASSWORDS AND ♦ 

♦ POSTS GTCB ♦ 
♦♦♦♦******♦♦♦♦♦♦♦ 



*****K2***++++++^ 

* ♦ 
♦DETERMINES NEXT+ 

* OPERATION AND *... 

* CALLS BTAM TO * 

* REPLY * 
***************** 



Figure 8. System/360 Control Flow for PTOP Initialization Process 
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Using BTAM 

BTAM controls the data movement over 
communication lines in System/360. The 
System/360 PTOP routines use BTAM by cre- 
ating BTAM control blocks and specifying 
the proper macro instructions. When these 
macro instructions are executed, control is 
passed to BTAM. 

BTAM control blocks that are created and 
their purposes are: 

• One data control block (DCB) which is 
needed to define a data set and thus 
identify a communication line group. 
The DCB also furnishes BTAM with the 
address of PTOP's Interface Resolution 
routine (IKDGTIRB) so that BTAM's chan- 
nel end appendage can schedule the 
routine to be invoked asynchronously 
after input/output interruption pro- 
cessing is accomplished by the control 
programs . 

• The data event control block (DECB) 
which provides communication with the 
BTAM read/write module. 

Note : DCB and DECB formats and descrip- 
tions are contained in the publications: 

IBM Svstem/360 Operating System : 

System Control Blocks ,, Form C28-6628 

Basic Telecommunications Access Method , 
Form C30-2004 

Basic Telecommunications Access Method 
Program Logic Manual , Form Y30-2001 

Effecting Communication and Control 

Communication and control among the PTOP 
routines is accomplished in the System/360 
by means of the GTCB, a special save area 
used when the asynchronous routine is in 
control, and the unit assignment table. 

The GTCB is used for storing information 
needed by the PTOP routines. It is dynam- 
ically constructed during processing by the 
Initialization routine (IKDGTNIT). One 
GTCB is created and initialized for each 
data set reference number. The address of 
each GTCB created is placed in the unit 
assignment table. 

The special save area is used to store 
the transmission status of the user's main- 
line program when the PTOP routines are 
processing for an asynchronous routine. It 
is dynamically acquired when PTOP deter- 
mines that the asynchronous routine is to 
be given control. Its address is placed in 
the GTCB associated with the mainline 
program. 



The unit assignment table is a PTOP 
module that provides the Controller an 
additional means of controlling the execu- 
tion of the user's program and ensuring 
that correct linkage is established to the 
PTOP routines in System/360. It is loaded 
by the controller at initialization time 
and remains in storage until termination 
time. When it is brought into storage, the 
unit assignment table contains no infor- 
mation. Its fields are completed during 
PTOP program processing. It contains the 
addresses of the GTCBs established during 
the initialization process. 

The unit assignment table furnishes a 
means of associating a data set reference 
number passed by the user's program with 
the appropriate GTCB. The data set 
reference number is not actually entered in 
the table, but is implied by the position 
of the GTCB address within the table. For 
example, if the GTCB address is located in 
the first word (four bytes) of the table, 
data set reference number 1 is implied. If 
the GTCB address is located in the tenth 
word (table +36) data set reference number 
10 is implied. A maximum of 99 data set 
reference numbers are allowed. 

Figure 9 shows relationships among the 
unit assignment table, the GTCB, and the 
asynchronous routine save area. Detailed 
information about each of these areas is 
contained in Appendix A. Also included in 
Appendix A is a summary table showing how 
each System/360 data transmission routine 
may affect the information located in the 
fields of the GTCB. 



TRANSMITTING AND RECEIVING DATA 
(SYSTEM/360) 

In System/360, calls to GTWRT and GTRED 
start the transmission and reception of 
user' s data by invoking the Read and Write 
Data routine (IKDRDWRT). 

Figure 10 traces the control flow for a 
read/write operation along with the input/ 
output interruption processing and input/ 
output status testing. It depicts the 
functions involved in transmitting and 
receiving data which are described in the 
paragraphs that follow. 

Even though the initialization process 
conditioned the systems to receive data, no 
actual transfer of user's data occurs 
unless the receiving program is conditioned 
to accept it (i.e., placed in a ready-to- 
read status) . A call to GTRED is necessary 
to condition the System/360 program to 
accept user's data. 

When IKDRDWRT receives this request, it 
sends a ready-to- read message to the 1130 
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system by using BTAM. Appropriate fields 
are completed in the GTCB to reflect the 
status of the input/output operation. Fol- 
lowing transmission of the message, a Read 
Initial procedure is started to read the 
data into the use^s read buffer. When the 
data is received by the System/360, then 
IKDGTIRB moves it to the user- specif ied 
working array omitting all control charac- 
ters for the use of the problem program. 

A call to GTWRT is necessary to transmit 
user* s data. When IKDRDWRT receives this 
request, it determines whether the 1130 
user is ready to read (has called GTRED) . 
If so, IKDRDWRT sends a data message from 
the user's write buffer to the 1130 system 
by using BTAM. Appropriate fields are 
completed in the GTCB to reflect the status 
of the input/output operation. If the 1130 
user is not ready to read, IKDRDWRT sets 
appropriate flags in the GTCB so that 
IKDGTIRB can transmit the data message at a 
later time (when the 1130 user has called 
GTRED) . 

If the call to GTWRT specified that the 
1130 asynchronous routine is to be given 
control, IKDRDWRT sends the asynchronous 
routine request message to the 1130 system. 

System/360 can also terminate the 1130 
program by means of GTWRT. When the user 
specif es a "controlopt" argument equal to 
3, IKDRDWRT sends the program termination 
request message to the 1130 system. 

To send any message to the 1130, 
IKDRDWRT first attempts to halt input/ 
output operations and, if successful, then 
transmits the appropriate message via BTAM. 
In all cases, the GTCB is updated and 
appropriate flags are turned on or off to 



inform IKDGTIRB of the transmission status 
of the current operation at interruption 
processing time. If IKDRDWRT is unable to 
send the message because an input/output 
operation is already in progress and cannot 
be halted, IKDGTIRB sends the message via 
BTAM when the current input/output opera- 
tion is completed. 

In System/360, the PTOP routine that 
moves the message to the write buffer 
inserts the necessary control characters at 
the beginning of every message transmitted. 
BTAM inserts control characters at the end 
of every message. 

All data transmission messages including 
appropriate control characters and header 
information are illustrated and described 
in Appendix C. 



Processing Input/Output Interruptions 

In System/360, a channel end inter- 
ruption or an abnormal end interruption 
causes control to be passed to the channel 
end/abnormal end appendage in BTAM. This 
appendage handles the input/output inter- 
ruption, and determines whether the opera- 
tion is complete. 

If the operation is not complete, the 
appendage routine updates the channel pro- 
gram to continue the operation and returns 
to the Input/Output Supervisor. 

If the operation is complete,, the appen- 
dage routine schedules the execution of 
IKDGTIRB via the Asynchronous Exit Effector 
(AEE) and informs the Input/Output Supervi- 
sor that the in put/ output operation has 
been completed. 
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COMPUTER SYSTEM 



*****B1 ********** 

* * 

* CALLS * 
♦GTRED OR CALLS *. 

* GTWRT * 

* * 
***************** 



*****B2** ******** 
♦IKDGTCLR * 
*-*-*-*-*-*-*-*-* 
K* DETERMINES * 
♦ENTRY TO PROPER* 
* ROUTINE * 
***************** 



*****C2********** 
*IKDRDWRT * 
*-*-*-*-*-*-*-*-* 

* ISSUES READ *. 

* OR WRITE IF * 

* POSSIBLE * 
***************** 



*****C3 ********** 

* CREATES * 

* CHANNEL * 

. X*PROGRAM, ISSUES*. 

* EXCP MACRO * 

* INSTR * 
***************** 



*****C4 ********** 

* * 

* ISSUES START * 
.X*I/0 COMMAND TO *. 

* CHANNEL * 

* * 
***************** 



******C5***** ****** 

* FETCHES CAW * 
,X AND PROCESSES 
* COMMAND * 

************* 



*****D2********** 
♦IKDRDWRT * 
*-*-*-*-*-*-*-*-* 

♦RETURNS CONTROL* 
* * 

***************** 



*****D3* ********* 



. *RETURNS CONTROL*X. 



***************** 



*****D4 ********** 

* * 
♦RETURNS CONTROL* 

.* IF COMMAND IS * 

* ACCEPTED * 

* * 
***************** 



******D5* ********** 

* EXECUTES * 

CHANNEL 

* PROGRAM * 

************* 



*****E1 ********** 

* RESUMES * 
♦PROCESSING NOT * 

* DEPENDENT ON *X 

* COMPLETION * 

* ♦ 
***************** 



*****E2** ******** 
♦IKDGTCLR * 

*-*-*—*-*-*-*-*-* 
• * ♦ 

♦RETURNS CONTROL^ 
* TO USER * 
***************** 



♦♦♦**E3 ********** 

* * 

* DETERMINES * 
♦COMPLETION AND *X . 

* SCHEDULES ♦ 

* IKDGTIRB * 
***************** 



* DETERMINES * 

* REASON FOR ♦ 
.♦ INTERRUPTION ♦> 

♦AND GOES TO CEA* 

* ♦ 
***************** 



******E5***** **♦♦** 

* ISSUES * 
. ... I/O 

♦INTERRUPTION * 

************* 
OS CONTROL PROGRAM 



*****G1********** 



CALLS GTCLT 



***************** 



*****F2** ******** 
♦IKDGTIRB * 
*-*-*-*-*-*-*-*-* 

* POSTS STATUS *> 

* IN GTCB AND * 
♦TAKES NEXT STEP* 
***************** 

. **** 
. * * 
..X* C3 * 
* * 
**** 

*****G2********** 
♦IKDGTCLR * 
*-*-♦-*-*-*-*-*-* 
<♦ DETERMINES ♦ 
♦ENTRY TO PROPER+ 

* ROUTINE * 
***************** 



*****F4 ********** 

* POSTS * 

* COMPLETION OF * 
•X* OPERATION AND ♦« 

* RETURNS TO * 

* CONTROL PROG * 
*♦♦♦♦♦♦*♦******** 



*****F5********** 

* * 

♦ DISPATCHES * 
<♦ IKDGTIRB AS ♦ 

♦ SCHEDULED * 

* * 
***************** 



*****H2********** 
♦IKDGTCLT ♦ 

♦-*-*-*-*-*-*-*-* 

* * 
♦DETERMINES TEST* 

* FUNCTION * 
***************** 



.* GTCLT TO * 
•WAIT FOR I/O 
♦.COMPLETE .* 



*****J3********** 

♦ WAITS * 
*FOR COMPLETION ♦ 

. X+ OF SPECIFIED * 

♦ OPERATION * 

♦ * 
***************** 



♦♦***K1 ********** 

* * 

* CHECKS STATUS ♦ 

* AND TAKES *> 
♦DESIRED ACTION * 

* ♦ 
***************** 



*****K2** ******** 

* * 

* PASSES LAST ♦ 
.* READ OR WRITE * 

* STATUS FROM * 

* GTCB ♦ 
***************** 



Figure 10. System/360 Control Flow for PTOP Read/Write Operation with Test Function 
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IKDGTIRB evaluates information in the 
GTCB to determine the next function it has 
to perform. Any outstanding input/output 
operation necessary to complete a user 
requested read or write operation is sent 
through BTAJM. If no user's request is 
pending, or no user's request can be per- 
formed at this time, IKDGTIRB: restores the 
system ready-to-read status by requesting a 
read operation specifying the PTOP buffer. 

If the operation just completed was 
user- initiated, IKDGTIRB posts the comple- 
tion status of the last user's read or 
write data operation in the GTCB for use by 
IKDGTCLT. 

Processing Input/Output Errors 

In System/360, input/output errors are 
detected by the computing system and indi- 
cated in the channel status word (CSW). 
The channel end appendage in BTAM deter- 
mines if some of the operations should be 
retried. By setting appropriate fields in 
the system control blocks, the channel end 
appendage informs the Input/Output Supervi- 
sor that BTAM Error Recovery Procedures for 
BSC are to be invoked to diagnose and 
recover, if possible, from the errors that 
occurred during the telecommunications 
processing. 

For information on basic error recovery 
procedures provided in BTAM, refer to the 
publication IBM System/360 Operating Sys- 
tem: Basic Telecommunications Access 

Method , Form C30-2004. For detailed func- 
tions of the error handling routines, refer 
to the publication IBM System/360 Operating 
System: : Basic Telecommunications Access 
Method Program Logic Manual , Form Y30-2001. 

In case of an unrecoverable input/output 
error that occurred during a user's read or 
write data operation, IKDGTIRB posts the 
completion status in the GTCB indicating 
that the operation is complete with error. 

Testing Input/Output Status 

When an input /out put operation is 
requested by the user, IKDRDWRT places the 
appropriate status code in the GTCB. As 
soon as the input/output operation is com- 
pleted, IKDGTIRB posts a status code in the 
GTCB, overlaying any previous status code, 
which indicates to the user's program the 
completion status of the last read or write 
data operation. 

To obtain this status code, the user* s 
program must call the GTCLT subroutine 
which causes the Controller to pass control 
to the IKDGTCLT routine. IKDGTCLT places 
the status code, from the GTCB into the 
"statcode" variable specified in the call 
to the GTCLT subroutine. When requested to 



do so by the "testcode" argument, IKDGTCLT 
waits until the current operation is com- 
pleted before placing the status code in 
the variable. However, IKDGTCLT will not 
wait if a condition exists that warrants 
immediate return. 



CONVERTING DATA (SYSTEM/360) 

The data transmission routines do not 
check any data formats during the process- 
ing. All user-defined data is assumed to 
be transmitted in 1130 format. If conver- 
sion is necessary, this means that the 
System/360 data to be transmitted to the 
1130 (by a call to GTWRT) should first be 
converted to the format acceptable to the 
1130 by a call to the proper data conver- 
sion subroutine. It also means that the 
1130 data that is received and read into 
the user-specified working array (by a call 
to GTRED) should then be converted to the 
format acceptable to the System/360 before 
further processing takes place. 

The data conversion routines in System/ 
360 are independent subroutines. Their 
functioning depends entirely on the user's 
program. When called, they perform their 
functions and return control to the user's 
program. 

Details of the methods used to reorder 
and reformat data are discussed in the 
section "System/360 Conversion Routines." 



MONITORING ASYNCHRONOUS ROUTINE PROCESSING 
(SYSTEM/360) 

When a request for the 1130 asynchronous 
routine is encountered in a System/360 call 
to GTWRT, the asynchronous routine request 
message is transmitted to the 1130 system. 
Appropriate fields are set in the GTCB. 
When the 1130 asynchronous routine returns 
control to the routine that called it, an 
appropriate message is transmitted from the 
1130 to notify the System/360 that the 
asynchronous routine is ended. The GTCB 
fields are reset accordingly. 

Asynchronous routine processing in the 
1130 does not change the control flow in 
the System/360 PTOP program. The System/ 
360 program continues performing along the 
same basic path shown in Figure 7. Howev- 
er, a change does occur in the System/360 
PTOP program processing when the System/360 
asynchronous routine is requested. 

Figure 11 shows the control and data 
flow for invoking the System/360 asynchro- 
nous routine, starting with the request 
from the 1130. The System/360 control 
functions remain the same as for any other 
data transmission function. PTOP's func- 
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tions are explained in the following 
paragraphs . 

When System/360 receives the asynchro- 
nous routine request message from the 1130 
program, IKDGTIRB saves the mainline pro- 
gram information, and se€s a flag in the 
GTCB to indicate that the user-specified 
asynchronous routine is scheduled in the 
System/360 program. The necessary linkage 
is provided by an interruption request 
block (IRB) and an interruption queue ele- 
ment (IQ.E) constructed by IKDGTIRB, and 
control is routed to the asynchronous rou- 
tine through the Asynchronous Exit Effector 
in the operating system. 

The asynchronous routine may use the 
data transmission facilities provided in 
PTOP. As soon as the asynchronous routine 
is requested, IKDGTIRB dynamically acquires 
a save area, places the address in the 
GTCB,, and stores the GTCB fields containing 
the transmission status of the mainline 
program in the save area. This allows the 
PTOP routines to perform operations for the 
asynchronous routine in the same manner as 
they are performed for the mainline 
program. 

The asynchronous routine must end with a 
call to GTEND; this notifies the PTOP 
routines that it is finished processing. 
From this call to GTEND, the End Communica- 
tion routine (IKDGTEND) is invoked. Then, 
IKDGTEND sends the asynchronous routine 
ended message to the 1130 system by using 
BTAM, and restores the GTCB with control 
information from the save area so that 
mainline program processing can be con- 
tinued. When IKDGTEND returns control, the 
Controller frees the save area acquired 
when the asynchronous routine was 
requested. 



TERMINATING COMMUNICATION (SYSTEM/360) 

The End Communication routine (IKDGTEND) 
becomes active when the GTEND subroutine is 
called in System/360. For the mainline 
program, it sends the terminate communica- 



tion link message to the 1130 system via 
BTAM, closes the specified communication 
line group, and frees the read buffer, the 
write buffer, and the GTCB. If no other 
communication line groups are currently 
active, IKDGTEND deletes the modules that 
were loaded by IKDGTNIT during the initial- 
ization process. When IKDGTEND deletes 
these modules, the Controller completes the 
termination of communication links by 
deleting the unit assignment table. 



The System/360 communication link can be 
reestablished by reinitializing the System/ 
360 PTOP routines while the 1130 system is 
maintaining its communication link. As 
long as the communication links are ter- 
minated in one or both of the systems, no 
PTOP communication can take place between 
the two systems. A call to GTNIT in the 
System/360 program will start the initial- 
ization process again. 

Unlike the 1130 system, System/360 pro- 
vides for terminating the 1130 communica- 
tion link. This is accomplished by a call 
in the user's System/360 program to GTWRT 
that specifies a "controlopt" argument 
equal to 3. When IKDRDWRT encounters this 
request, it halts input/output operations 
and transmits the program termination re- 
quest message to the 1130 system through 
BTAM. This message causes the 1130 PTOP 
program to relinquish control to the Disk 
Monitor System. The 1130 program cannot be 
reinitialized to communicate with the pro- 
gram that caused its termination. 

If the 1130 program ends the communica- 
tion link, the System/360 program and the 
PTOP routines remain intact although the 
PTOP program will not perform any more 
input/output operations until the communi- 
cation link is reestablished. IKDGTIRB 
issues a Read Initial procedure placing the 
System/360 PTOP program in ready- to- read 
status. Thus, the System/360 can accept 
the initialization message transmitted from 
the 1130 system when the 1130 program 
reinitializes by calling the GTNIT 
subroutine. 
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Figure 11. Control and Data Flow for Invoking the System/360 Asynchronous Routine 
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This section describes the PTOP data 
transmission modules provided in the 1130 
system. The modules are: 

• Initialization (GTNIT) , which prepares 
the 1130 system for communication with 
the System/360 program. 

• Read Data (GTRED) , which begins the 
processing of a user's read request. 

• Write Data (GTWRT) , which begins the 
processing of a user's write request. 

• Control Test (GTCLT) , which tests for 
completion status of a user's data 
transmission or data reception opera- 
tion. 

• End Communication (GTEND), which breaks 
communication with the System/360 pro- 
gram. 

• Telecommunications Monitor (GTP01) , 
which interprets the information for a 
completed operation, continues with the 
data transmission or reception follow- 
ing interruptions, and handles PTOP 
transmission errors. 

Entry Procedure 

Upon entry, before performing their spe- 
cialized functions, each of the transmis- 
sion routines saves the contents of the 
index registers, the accumulator, and the 
status indicators of the calling program. 
In the detailed descriptions of each rou- 
tine, this process is referred to as the 
entry procedure. 

Invoking the Asynchronous Routine 

As one of their first functions, GTRED, 
GTWRT,, GTEND, and GTCLT use the same proce- 
dure to honor any pending request to invoke 
the 1130 asynchronous routine. To deter- 
mine if an asynchronous routine request is 
pending, the processing PTOP routine checks 
the ASPND flag in the GTCOM. If the 
asynchronous routine is be invoked, the 



PTOP routine 
(that is,, the 
and extension. 



saves the program call status 
contents of the accumulator 
the index registers,, and the 
status indicators) in the GTCOM, and calls 
GTP02 to invoke the asynchronous routine. 



GTP02 is a secondary entry point in the 
Telecommunications Monitor routine and is 
used exclusively for invoking the 1130 
user's asynchronous routine. Before the 
asynchronous routine is called, GTP02 indi- 



cates that the mainline transmission status 
is to be saved, and waits for GTP01 to 
perform this function. After the save 
function is completed, GTP02 calls the 
asynchronous routine. 

When the asynchronous routine returns 
control to GTP02, the asynchronous routine 
ended message is queued. GTP02 waits until 
GTP01 has sent the message to the System/ 
360, and then returns control to the data 
transmission routine that started the 
invoking procedure so that the program call 
status can be restored and processing can 
continue as if no asynchronous routine 
request had been pending. 

In the detailed descriptions of GTRED, 
GTWRT, GTEND and GTCLT, this procedure is 
referred to as invoking the asynchronous 
routine. 



INITIALIZATION (MODULE NAME GTNIT) 

Chart: AA 

Function : 

• Initializes and updates fields in the 
1130 system PTOP communications area 
(GTCOM) for use by other PTOP routines. 

• Transmits an initialization message to 
the System/360 PTOP program. 

• Posts the results of the initialization 
attempt for the user. 

Entry : GTNIT, from the calling program. 

Exit : To SCAT2 and to the calling program. 

Input : The following information in a 
parameter list: 

+ "writebuf" 

address of the array to be used as an 
output buffer for data transmission. 

+ 1 "readbuf" 

address of the array to be used as an 
input buffer for data reception. 

+ 2 CALL "asynroutine" 

a call to the 1130 user's asynchronous 
routine. 

+ 4 " password 1 * 

address of the alphameric constant 
used to establish correlation between 
the 1130 and the System/360 programs. 
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+ !> "initcode" 

address of the variable into which the 
status of the initialization attempt 
is to be placed. 

Output : The initialization message is 
transmitted to the System/360 PTOP program, 
and one of the following values is placed 
in the "initcode" variable: 

«» Negative value, if the password trans- 
mitted by the 1130 system does not 
match the System/360 password. 

» Zero, if the communication link is 
established. 

» Positive value, if communication link- 
age cannot be established because of 
error conditions in the transmission 
line or if contact is not established 
with the System/360 within five 
minutes. 

Operation ; After the entry procedure „ 
GTNIT sets the RTBSY flag in the GTCOM to 
indicate that it is busy, and checks the 
OKNIT flag in the GTCOM to see if the PTOP 
program had previously been initialized. 

If the program is initialized, GTNIT 
stores the user-specified parameters in the 
GTCOM, sets the "initcode" variable to 
zero, and returns to the calling program. 

If the program has not yet been initial- 
ized,, GTNIT ensures that Index Register 3 
will contain the proper value for the 
supervisor to access the transfer vector 
table by placing the setting from the core 
image header (symbolic location 3XR3X) into 
the resident supervisor (at symbolic loca- 
tion $XR3X) . Then, GTNIT sets up the 
initialization message in the PTOP system 
buffer, and calls SCAT2 (using the LIBF 
statement) to transmit the message to the 
System/360. 

GTNIT then waits for the operation to be 
completed (indicated when the RTBSY flag in 
the GTCOM is zero) , and determines whether 
communication linkage has been established 
with the System/360 by checking the OKNIT 
flag. 

If OKNIT is one, GTNIT stores the 
addresses of the 1130 password, the read 
and write buffers, and the asynchronous 
routine in the GTCOM. It indicates a 
successful initialization attempt for the 
user, and returns to the calling program. 

If OKNIT is zero (unsuccessful initial- 
ization), GTNIT tests for reception of an 
EOT character (the input/output count areci 
contains zero) . If an EOT character was 
received, the passwords did not agree; 
GTNIT places a negative value in the "init- 



code" variable, requests a Close operation 
of SCAT2, and returns to the calling pro- 
gram. Otherwise, GTNIT assumes a transmis- 
sion error or no response from the System/ 
360, places a positive value in the "init- 
code" variable, requests a Close operation 
of SCAT2, and returns to the calling 
program. 



READ DATA (MODULE NAME GTRED) 

Chart : BA 

Function ; Performs the following schedul- 
ing functions for an 1130 user's request to 
receive data: 

• Calls GTP02 to invoke the 1130 asyn- 
chronous routine if it is pending. 

• Sets pointers and flags in the GTCOM 
for use by the GTP01 routine. 

Entry : 

• GTRED, from the calling program. 

• GTRD2, from GTP02. 

Exit : To GTP02 and to the calling program. 

Input : The following information in a 
parameter list: 

+ "userarray" 

address of the array into which the 
transmitted data is to be read. 

+ 1 "elcount" 

address of the integer that specifies 
the number of elements to be read. 

+ 2 " datatype" 

address of the integer that specifies 
the format of the incoming data. 

Output : Appropriate fields are set in the 
GTCOM to indicate that a user read request 
is pending. 

Operation : After the entry procedure, 
GTRED checks the OKNIT flag in the GTCOM to 
see if the PTOP program is initialized. If 
it has not been initialized, GTRED sets the 
LSTRD status field in the GTCOM to indicate 
the operation was not started, and returns 
to the calling program. Otherwise, GTRED 
determines if the 1130 asynchronous routine 
needs to be invoked (see "Invoking the 
Asynchronous Routine" ) . 

If no asynchronous routine need be 
invoked, GTRED checks the data type code in 
the LSTRD field of the GTCOM to see if a 
user read request is active or pending 
(code is non-zero) . If so, GTRED returns 
immediately to the calling program. 
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Otherwise, GTRED places information in 
the GTCOM. It computes the data length and 
stores it in RDCNT. It then stores the 
data type code in LSTRD, computes the 
highest element address of the user array, 
and stores the address in ^ RDPTR. Next, 
GTRED sets flags in BITS2 to indicate that 
an 1130 ready- to- read message and a user 
read request are pending, turns on the 
RTBSY flag, sets the LSTRD status to indic- 
ate that the operation was not started, and 
returns to the calling program. 



WRITE DATA (MODULE NAME GTWRT) 

Chart : CA 

Function : Performs the following schedul- 
ing functions for an 1130 user's request to 
transmit data: 

• Calls GTP02 to invoke the 1130 asyn- 
chronous routine if it is pending. 

• Initializes pointers and flags in the 
GTCOM for use by the GTP01 routine. 

Entry : 

• GTWRT, from the calling program. 

• GTWR2, from GTP02. 

Exit : To GTP02 and to the calling program. 

Input : The following information in a 
parameter list: 

4 "userarray" 

address of the array containing the 
data to be transmitted. 

+ 1 "elcount" 

address of the integer that specifies 
the number of elements to be 
transmitted. 

+ 2 "datatype" 

address of the integer that specifies 
the format of the outgoing data. 

+ 3 "controlopt" 

address of the integer that specifies 
the destination of the data to be 
transmi tt ed . 

Output : Appropriate fields are set in the 
GTCOM to indicate a user write request is 
pending. 

Operation : After the entry procedure, 
GTWRT checks the OKNIT flag in the GTCOM to 
see if the PTOP program is initialized. If 
not, GTWRT sets the LSTWT field in the 
GTCOM to indicate that the last write 
request was not started, and returns to the 
calling program. Otherwise, GTWRT deter- 



mines if the 1130 asynchronous routine 
needs to be invoked (see "Invoking the 
Asynchronous Routine"). 

If the asynchronous routine does not 
need to be invoked, GTWRT checks the "con- 
trolopt" parameter to see if the write 
request is a normal data transmission to 
the System/360 program or a request to 
schedule the System/360 asynchronous 
routine. 

If the request is for the System/360 
asynchronous routine, GTWRT checks the 
GTCOM to see if the System/360 asynchronous 
routine is already active. If it is, GTWRT 
returns immediately to the calling program. 
If the System/360 asynchronous routine is 
not active, GTWRT queues the request and 
moves the data (parameter) to be trans- 
mitted into the ASDAT field of the GTCOM. 
GTWRT sets the RTBSY flag to one and 
returns to the calling program. 

If the request is for normal data trans- 
mission to the System/360 program, GTWRT 
places information in the GTCOM. It com- 
putes the highest address of an element in 
the user array and stores the address in 
WTPTR. It then computes the data length, 
and stores it in WTCNT. GTWRT stores the 
data type code in LSTWT, sets the RTBSY 
flag to one, and queues the data message. 
It then sets the status portion of the 
LSTWT field to indicate that the operation 
was not started, and returns to the calling 
program. 



CONTROL TEST (MODULE NAME GTCLT) 

Chart : DA 
Function : 

• Calls GTP02 to invoke the 1130 asyn- 
chronous routine if it is pending. 

• Provides information to the user 
regarding the status of the most recent 
read or write request. 

Entry : 

• GTCLT, from the calling program. 

• GTCT2, from GTP02. 

Exit : To GTP02 and to the calling program. 

Input : A parameter list containing the 
following : 

+ "test code" 

address of the integer that specifies 
the operation to be tested. 
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+ 1 "statcode" 

address of the variable into which a 
value indicating the status of the 
tested read or write operation is to 
be placed. 



Note ; GTCLT honors any request to invoke 
the 1130 asynchronous routine that occurs 
while GTCLT is waiting for the status field 
value to change. 



Output ; The user's "statcode" variable is 
set to indicate the status of the last read 
or write operation requested by the user. 
The various values placed in the "statcode" 
variable are found in the GTCOM, and the 
meanings are explained in Appendix A. 



Operation : After the entry procedure, 
GTCLT determines if the 1130 asynchronous 
routine needs to be invoked (see "Invoking 
the Asynchronous Routine"). 

If the asynchronous routine does not 
need to be invoked, GTCLT checks the value 
of the "test code" variable to determine the 
type of operation to be tested, and if the 
user specified that GTCLT should wait for 
the operation to be completed. GTCLT per- 
forms the function indicated, and returns 
to the calling program. 

The possible "testcode" values and the 
functions performed as a result of each 
value are as follows: 



Value of 
"testcode" 



GTCLT Action 
Places the value of 
status field into 
code" variable- 



the LSTRD 
the "stat- 



Places the value of the LSTWT 
status field into the "stat- 
code" variable. 

Tests the LSTRD status field. 
If it contains a 1, 4, 5, 6, or 
7, GTCLT does not wait, but 
places that value in the "stat- 
code" variable. For status 
values of 2 or 3, GTCLT checks 
LSTRD data type code to see if 
a valid input/output operation 
is active or pending. If so, 
GTCLT waits for the LSTRD sta- 
tus field to equal 1, 4, 5, 6, 
or 7, and places that value in 
the "statcode" variable. If no 
valid input/output operation is 
indicated,, GTCLT does not wait, 
but places a value of 2 in the 
"statcode" variable. 

Tests the LSTWT status field 
and performs the same functions 
as described for "testcode" 
value 3 except that the LSTWT 
field is used instead of the 
LSTRD field. 



END COMMUNICATION (MODULE NAME GTEND) 

Chart : EA 

Function : 

• Calls GTP02 to invoke the 1130 asyn- 
chronous routine if it is pending. 

• Halts PTOP communication after active 
write request is completed. 

• Transmits the terminate communication 
link message to the System/360 PTOP 
program. 

• Clears certain fields in the GTCOM. 

• Resets the SCA. 
Entry : 

• GTEND, from the calling program. 

• GTND2, from GTP02. 

Exit : To GTP02 and to the calling program. 

Input : None. 

Output: The System/360 PTOP program is 
notified that the 1130 program called 
GTEND, and the GTCOM fields that indicate 
the status of input/output operations are 
reset. 

Operation : After the entry procedure, 
GTEND checks the OKNIT flag in the GTCOM to 
determine if the 1130 PTOP program is still 
initialized. If OKNIT is zero, GTEND 
returns immediately to the calling program. 

If OKNIT is one, GTEND then checks the 
ASPND flag in the GTCOM to determine if the 
1130 asynchronous routine is to be invoked 
(see "Invoking the Asynchronous Routine"). 

If the asynchronous routine does not 
need to be invoked, GTEND queues the- ter- 
minate communication link message to be 
transmitted at the first opportunity. It 
waits for completion of the operation, 
indicated when the RTBSY flag in the GTCOM 
is set to zero by GTP01. 

GTEND then resets the SCA by calling 
SCAT2 to close operations. Upon return 
from SCAT2, GTEND clears the BITS and BITS2 
fields, and places a value of 2 in the 
status portion and zero in the data type 
portion of the LSTRD and LSTWT fields in 
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the GTCOM. GTEND then returns to the 
calling program. 



TELECOMMUNICATIONS MONITOR (MODULE NAME 
GTP01) 

Charts : FA, FB, FC, FD f FE 

Function : 

• Monitors completion of input/output 
requests. 

• Processes errors encountered during 
PTOP data transmission. 

• Invokes the 1130 user*s asynchronous 
routine. 

Entry : 

• GTP01, from SCAT2 at interruption time. 

• GTP02, from GTRED, GTWRT, GTCLT, or 
GTEND when the asynchronous routine is 
to be invoked. 

Exit : 

• To SCAT2 when entered at GTP01. 

• To the secondary entry point of the 
calling routine when entered at GTP02. 

Input : 

• When entered at GTP01, f the accumulator 
contains zero or an error code (see 
"Error Processing Phase"). 

• When entered at GTP02, Index Register 1 
contains a value that identifies the 
calling routine as follows: 

= GTWRT 
2 = GTRED 
4 = GTCLT 
6 = GTEND 

Output : The GTCOM is updated to indicate 
the current transmission status of the PTOP 
requests . 

The accumulator is set with a value to 
direct SCAT2 operation (see the following 
description of GTP01 operation for 
details) . 

Operation : When the routine is entered at 
GTP01, the accumulator is checked to deter- 
mine whether error processing is necessary 
before end-of-operation processing is per- 
formed. If the accumulator is zero, no 
error processing is necessary and GTP01 
enters the end-of-operation processing 
phase. 



If the accumulator is not zero, 
processes the error condition. 



GTP01 



Error Processing Phase : After saving con- 
tents of the accumulator. Index Register 1, 
and status indicators, GTP01 checks the 
code in the accumulator to determine its 
next action. 

The codes, meanings, and related actions 
taken by GTP01 are as follows. Accumulator 
settings upon exit from GTP01 are shown in 
parentheses. Zero in the accumulator 
directs SCAT2 to end the operation as if a 
normal completion occurred. A non-zero 
value in the accumulator directs SCAT2 to 
retry the current operation up to seven 
additional times. 



Code 
/8000, 
/0800 
/0400, 

or 
/0100 

/4000 



/2000 



/1000 



/0200 



Meaning and GTP01 Action 
Unrecoverable error: Sets the ERRST 
field in the GTCOM to indicate an 
unrecoverable error, and returns to 
SCAT2 (/0000). 



Contention: Sets the timeout indi- 
cator in the ERRST field, and 
returns to SCAT2 (non-zero). 

Receive timeout: If the current 
operation is Receive Initial, GTP01 
inspects the GTCOM for any write 
operation that may be pending or 
for an indication that the save 
mainline status function is to be 
performed. For either of these 
cases, GTP01 queues any requested 
user read operation as pending in 
the BITS 2 field, and returns to 
SCAT2 (/0000). For any other case, 
GTP01 returns to SCAT2 (non-zero) . 

Overflow: If the current operation 
is Receive Initial, GTP01 sets the 
incorrect length indicator in the 
ERRST field in the GTCOM, and 
returns to SCAT2 (/0000) . Other- 
wise, it sets the unrecoverable 
error indicator and returns to 
SCAT2 (/0000). 

Transmit timeout: When the current 
operation is Transmit End, GTP01 
returns to SCAT2 (/0000) . 

When the current operation is 
Transmit Initial, GTP01 checks the 
message being transmitted to deter- 
mine if it is an initialization 
message. If it is not, GTP01 indi- 
cates a timeout in the ERRST field, 
and returns to SCAT2 (/0000). For 
an initialization message, GTP01 
checks whether the 1130 PTOP pro- 
gram is initialized, and if it is, 
GTP01 indicates a timeout and 
returns to SCAT2 (/0000) . 
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If 1130 PTOP is not initialized, 
GTP01 decrements the GTCOM retry 
counter used to control the number 
of times that the initialization 
message is to be retried by SCAT2, 
and returns to SCAT 2 for further 
retries (non-zero). If the retry 
counter becomes zero, indicating 
that the time limit of five minutes 
for an initialization attempt has 
elapsed, GTP01 indicates a timeout 
and returns to SCAT 2 (/0000). 

End-of-Operation Processing Phase : After 
saving the contents of the accumulator, 
index registers, and status indicators, 
GTP01 checks the GTCOM to determine which 
operation has just been completed- GTP01 
takes appropriate action, which may include 
getting the next operation started (see 
"Starting the Next Operation"). 

If the operation is Transmit Initial , 
with no timeout and no EOT character 
received in response, GTP01 calls SCAT2 to 
transmit the EOT character to the System/ 
360, sets the active function flag in the 
GTCOM, and then returns to SCAT2. If an 
EOT was received in response to the mes- 
sage, GTP01 sets the error flag in the 
ERRST field, and checks for the type of 
message being transmitted to determine the 
next action. If a Transmit timeout 
occurred (flagged earlier by GTP01) , or if 
the operation is Transmit End , GTP01 pro- 
ceeds to check the type of message being 
transmitted. 

Messages transmitted and associated 
actions taken by GTP01 are as follows: 



For 



data 



message , GTP01 checks the 
any unrecoverable 



ERRST field and, if 
errors occurred, sets the LSTWT status 
field to indicate a transmission line 
error. Otherwise, GTP01 checks the 
incorrect length flag in LSTWT, sets 
the LSTWT status appropriately, and 
starts the next operation. 

• For a ready-to-read message , GTP01 
checks for unrecoverable errors. If 
any are indicated, GTP01 sets the LSTRD 
status to indicate a transmission line 
error and cancels any user read re- 
quest. GTP01 then starts the next 
operation. 

• For a terminate communication link mes- 
sage , GTP01 sets the RTBSY indicator to 
zero and returns to SCAT2. 

• For an initialization message , GTP01 
does one of the following: 

(1) If no EOT was received and there 
were no transmission errors, GTP01 
sets the OKNIT flag to one, places 



a status code of 2 in the LSTRD and 
LSTWT fields, and starts the next 
operation; or, 

(2) If an EOT was received or if there 
were transmission errors, then 
GTP01 determines if the 1130 user 
has called GTEND or if the 1130 
PTOP program is not currently ini- 
tialized. In either case, GTP01 
sets the RTBSY indicator to zero 
and returns to SCAT2. If the 1130 
PTOP program is initialized (and is 
awaiting reinitialization in the 
System/360) , GTP01 queues the ini- 
tialization message again and 
starts the next operation. 



routine request 



• For an asynchronous 

message , GTP01 checks the ERRST field, 
and if any input/output errors are 
indicated, it queues the message again 
and starts the next operation. If no 
errors are indicated, GTP01 saves the 
System/360 read status for its mainline 
program, if necessary, sets the OSRED 
field to zero, sets the ASACT field to 
one, and starts the next operation. 

• For an asynchronous routine ended mes- 
sage , GTP01 determines if any input/ 
output error is indicated, and if so, 
queues the message again and starts the 
next operation. If no errors are indi- 
cated, GTP01 dequeues any user input/ 
output operations not completed, 
dequeues the message just transmitted, 
and restores the mainline transmission 
status in the appropriate fields of the 
GTCOM. If the System/360 user called 
GTEND from the mainline program, GTP01 
sets the status code in the LSTRD and 
LSTWT fields to 5. GTP01 then starts 
the next operation. 

If the operation is Receive Initial , 
GTP01 tests for a timeout and various error 
conditions. If a timeout occurred, GTP01 
starts the next operation. If unrecover- 
able errors occurred (indicated in ERRST), 
GTP01 calls SCAT2 to send the negative 
acknowledgment (NAK) via Receive Repeat. 
If an EOT was received, GTP01 restarts the 
current input/output operation and calls 
SCAT2 to perform the Receive Initial again. 

If none of the conditions described in 
the preceding paragraph exists, GTP01 
determines if the message received is 
valid. If not, GTP01 calls SCAT2 and 
requests Receive Repeat. If the message is 
valid, GTP01 determines if it is a data 
message for the user, and if so, sets the 
LSTRD status code to indicate that the 
operation is still in process. GTP01 then 
calls SCAT2 to perform the Receive Continue 
operation, sets the active function flag in 
the GTCOM, and returns to SCAT2. 
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If the operation is Receive Continue/ 
Repeat , GTP01 checks the ERRST field for 
the existence of an unrecoverable error. 
If an unrecoverable error occurs while 
receiving data into the user's read buffer, 
GTP01 sets the LSTRD status to indicate a 
transmission line error, and starts the 
next operation. If an unrecoverable error 
occurs while using the system buffer, GTP01 
starts the next operation. If there were 
no unrecoverable errors, GTP01 saves the 
DATA ID from the message received in the 
DSREF field of the GTCOM, and determines 
which message was received by checking the 
control byte (following the starting con- 
trol characters) of the message header. 

Messages received and associated actions 
are as follows: 

• For a d ata message , GTP01 compares the 
data count received with the RDCNT, 
checks the ERRST field for incorrect 
length,, sets the LSTRD status appropri- 
ately, transfers the data to the user- 
specified array, and starts the next 
operation. 

• For an a synchronous routine ended mes- 
sage (from System/360) , GTP01 restores 
the System/360 mainline read status, 
sets the ASACT field to zero, and 
starts the next operation. 

• For a ready-to-read message , GTP01 
determines whether both systems are in 
ready-to-read status for which it sets 
the LSTRD field appropriately, stores 
the System/360 read count in the OSCNT 
field, sets the OSRED flag to one in 
the GTCOM, and starts the next 
operation. 

• For a p rogram termination request mes- 
sage , GTP01 modifies the ILS01 return 
address to return to GTP01 after the 
interrupt level is reset. when GTP01 
is reentered, it calls SCAT2 to reset 
the SCA„ and exits to $EXIT in the 
resident supervisor. 

• For a terminate communication link mes- 
sage , GTP01 sets LSTWT and LSTRD status 
fields to indicate that the System/360 
user has called GTEND. If the 1130 
user also called GTEND, GTP01 sets 
RTBSY to zero and returns to SCAT2. 
Otherwise, if a user read request is 
pending, GTP01 queues a ready-to- read 
message, and then queues an initial- 
ization message, which has a higher 
priority than a user read. GTP01 also 
determines if the 1130 asynchronous 
routine has ended (that message is 
pending) in which case it restores the 
transmission status of the mainline 
program. GTP01 then starts the next 
operation. 



• For an asynchronous routine request 
message , GTP01 turns on the ASPND flag, 
saves the asynchronous routine parame- 
ter in the ASPRM field of the GTCOM, 
and starts the next operation. 

Starting the Next Operation : GTP01 clears 
the error and operation fields in the 
GTCOM. If necessary, it saves the 1130 
mainline transmission status in the appro- 
priate fields of the GTCOM, and sets the 
GTCOM fields appropriately. Then, GTP01 
checks BITS2 to determine what requests, if 
any, are pending, and processes them in the 
order they are found in BITS2. However, if 
the last completed operation required a 
transmit function, GTP01 ensures that the 
next operation is a receive function. 

For each message to be transmitted, 
GTP01 stores the I/O count, header informa- 
tion, necessary text, and line control 
characters in the system or user write 
buffer, increments the write sequence num- 
ber, clears the pending flag, sets the 
message type flag, calls SCAT2 to transmit 
the message, and returns to SCAT2. 

When the ASPND flag is set to one, 
indicating a request to invoke the 1130 
asynchronous routine, it has priority over 
a data message, a ready-to- read message, or 
a user read request which may be pending. 
In this case, when no other operations are 
pending, GTP01 sets the RTBSY flag to zero, 
sets up a system read with the maximum word 
count, calls SCAT2 to perform a Receive 
Initial, and returns to SCAT2. 

If the next operation is the transmis- 
sion of the end communication link message, 
and the 1130 asynchronous routine is active 
(BIT12 in the GTCOM BITS field is set to 
one) , GTP01 causes the asynchronous routine 
ended message to be transmitted to the 
System/360 first. It then transmits the 
end communication link message. 

Before sending the asynchronous routine 
request message, GTP01 saves the System/360 
read status in the SAVST field of the 
GTCOM. It restores this status when the 
System/360 sends the asynchronous routine 
ended message. 

When the asynchronous routine ended mes- 
sage is to be sent, GTP01 cancels any 
pending read or write operation, restores 
the mainline transmission status in the 
GTCOM, and sets the BITS12 flag to zero to 
indicate the 1130 asynchronous routine is 
no longer active. GTP01 then transmits the 
message. 

GTP01 honors a pending 1130 data message 
request only after a System/360 ready-to- 
read message has been received. It sets 
the LSTWT status to indicate the operation 
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was started but not complete when it 
the data message. 



sends 



To honor a user's read request, GTP01 
sets up the user's read buffer to receive 
the data message from System/360, clears 
the read pending flag, sets the message 
type flag, calls SCAT2 to perform a Receive 
Initial, and returns to SCAT2. 

Invoking the Asynchronous Routine ; When 
entered at GTP02, the Telecommunications 
Monitor routine saves the contents of the 
accumulator, index registers,, and status 
indicators; sets the BIT11 flag in the 
GTCOM to indicate that the mainline trans- 
mission status needs to be saved; and loops 
until GTP01, through normal interruption 
processing, saves this status and turns off 
the flag- Then, GTP02 turns on the BIT12 
flag to indicate the 1130 asynchronous 
routine is active. It branches to the 



user* s asynchronous routine, passing the 
user- specified parameter in the word fol- 
lowing the Branch instruction. 

When the asynchronous routine returns 
control, GTP02 queues the asynchronous rou- 
tine ended message to be sent. Again, 
GTP02 loops until the message is trans- 
mitted, and returns to the calling routine. 



FLOWCHARTS 

This section contains autocharts showing 
the logic flow for the 1130 PTOP data 
transmission modules. The charts are 
ordered alphabetically (according to iden- 
tification) in the sequence in which the 
routines are described. Refer to Appendix 
G for an explanation of the symbols used on 
the autocharts. 
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Chart AA. Initialization Routine (1130) 



♦♦**A2** ****♦♦* 
« 4 

» GTNIT FNTRY * 



GTNIT X 

*****B2 ********** 

* SAVE * 

* CONTENTS OF * 

* REGISTERS AND * 

* STATUS * 

* INDICATORS * 
***************** 



*****C4********** 



.* THE PTOP *. 

► . PROGRAM . 

♦INITIALIZED* 



MOVE X 

*****D2 ********** 

* SET * 

* UP * 
♦INITIALIZATION * 

* MESSAGE IN * 

* BUFFER * 
***************** 



******E2 *********** 

* TRANSMIT * 

INITIAL VIA 

* SCAT2 * 

************* 



. *HAS MSG*. 
NO .* BEEN * 
...*. TRANSMITTED 



.* WAS *. 
.* PTOP *. YES 
*. INITIALIZED .*.... 
♦.ALL RIGHT.* 



* INITIALIZE * 
K* APPROPRIATE * 

♦POINTERS IN THE* 

* GTCOM * 
******♦♦♦*******♦ 



* * 




****C5 ****♦♦♦** 


♦ ♦ 




♦ 








♦ =0 * 




X ♦ 


* * 




♦♦♦**♦****♦♦*** 


*♦♦****♦♦♦♦****** 




**** 




* 


♦ 




* 


C5 * 




* 


* 
**** 



♦SET USER'S CODE* 
♦= - FOR INVALID*. 

* PASSWORD * 

* * 
♦♦♦♦*♦♦♦♦**♦♦♦♦*♦ 



♦***+H3***+****++ 

♦ SET * 
♦USER'S CODE = +* 

♦ TRANSMISSION * 

♦ ERROR * 
***************** 



****** J 3 *♦*****♦♦** 



**** 

♦ 4 
■ •X* C5 * 

* * 
**** 



************* 
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Chart HA. Read Data Routine (1130) 



****A2 ********* 
* * 

► GTRED ENTRY * 



*****B2********** 

* SAVE * 

* CONTENTS OF * 

* REGISTERS AND * 

* STATUS * 

* INDICATORS * 
***************** 



.* THE PTOP *. 

t. PROGRAM . 

♦INITIALIZED* 



RDOIO X 

*****C3 ********** 

* SET * 

* LAST READ * 
...X* STATUS=2 *. 

* OPERATION NOT * 

* STARTED * 
***************** 



RD020 

****C4********* 

* 4 
...X* RETURN 1 

* 4 
*************** 



.* IS 1130 *• YES 
. ASYNC ROUTINE.*.... 
*. PENDING .* 



* SAVE STATUS * 
,X*OF THIS CALL IN*. 

* GTCOM * 

* * 

***************** 



****D4********* 
* * 

•X* EXIT TO GTP02 * 



*************** 



SEE CHART FE FOR 
INVOKING THE 1130 
ASYNCHRONOUS ROUTINE 



****E1 ********* 

► * 

► GTRD2 ENTRY * 



*****F1 ********** 

* * 

* RESTORE * 

* STATUS OF *. 

* ORIGINAL CALL * 

* * 
***************** 



.* USER READ *. YES 
•X+REQUEST ACTIVE.*.... 
*OR PENDING.* 



► ARE *. NO 
PARAMETERS .*... 
t. VALID .* 



*****H2 ********** 

* ■ * 
♦STORE DATA TYPE* 
*AND STATUS CODE* 

* OF 2 IN GTCOM * 

* * 
***************** 



RD060 X 

*****J2********** 

* COMPUTE AND * 

* STORE DATA * 
♦LENGTH AND HIGH* 
♦ADDRESS OF USER* 
*ARRAY IN GTCOM * 
***************** 



*****K2 ********** 

* QUEUE * 

* READY-TO-READ * 

* MESSAGE AND *. 

* USER READ * 

* REQUEST * 
***************** 



.RP020 

****K4********* 

* ♦ 
X* RETURN + 

* * 
♦♦♦♦♦********** 
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Chart CA. Write Data Routine (1130) 



****A2 ********* 
* * 

► GTWRT ENTRY 4 



*****B2 ********** 

* SAVE * 

* CONTENTS OF * 

* REGISTERS AND * 

* STATUS * 

* INDICATORS * 
***************** 



-*IS PTOP*. 
► PROGRAM *. NO 
INITIALIZED .*... 



WT005 X 

*****C3********** 

* SET * 

* LAST WRITE * 
...X* STATUS=2 *. 

* OPERATION NOT * 

* STARTED * 
***************** 



WTOIO 

****C4** ******* 

* 4 
...X* RETURN 4 

* 4 
*************** 



.* IS 1130 *. 
• ASYNC ROUTINE. 

*. PENDING .* 



* SAVE STATUS * 

• X*OF THIS CALL IN*. 

* GTCOM * 

* * 
***************** 



****D4** ******* 

* * 
■X* EXIT TO GTP02 * 

* * 
*************** 



SEE CHART FE FOR 
INVOKING 1130 
ASYNCHRONOUS ROUTINE 



**** El ********* 

► * 

► GTWR2 ENTRY 4 



*****F1 ********** 

* * 

* RESTORE * 

* STATUS OF *. 

* ORIGINAL CALL * 

* * 
* **************** 



.*IT REQUEST *. YES 
FOR S/360 .*.... 
*. ASYNC RTN.* 



IS S/360 
ASYNC RTN 
. ACTIVE . 



*****F4********** 

* PARAMETER AND * 
<* QUEUE ASYNC * 
♦ROUTINE REQUEST* 
*F0R SYSTEM/360 * 
***************** 



-*IS USER*. 
f WRITE 

ACTIVE OR 
► . PENDING . 



WT010 

X 

****G3********* 

* 4 
. ..X* RETURN 4 

* 4 
*************** 



* ARE *. NO 

PARAMETERS .*... 
*. VALID .* 



**** 

* * 

* C3 * 

* 4 

**** 



WT035 X 

*****J2 ********** 

* SET LAST * 
♦WRITE STATUS=2 * 
*AND STORE WITH * 

* DATA TYPE IN * 

* GTCOM * 
***************** 



WT050 X 

*****K2 ********** 

* COMPUTE * 
♦DATA LENGTH AND* 

* HIGH ADDR OF *. 

* USER ARRAY, * 
♦STORE IN GTCOM * 
***************** 



* QUEUE * 
<* THE DATA *. 

* MESSAGE * 

* * 
***************** 



WT010 

***+K4 ********* 

* 4 
...X* RETURN 4 

* 4 
*************** 
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Chart DA. Control Test Routine (1130) 



****A2 ********* 
< * 

* GTCLT ENTRY * 



*****B2 ********** 

* SAVE * 

* CONTENTS OF * 

* REGISTERS AND * 

* STATUS * 

* INDICATORS * 
***************** 



**** 



* C2 *.X. 



.* IS 1130 *. YES * SAVE STATUS * 
.ASYNC ROUTINE. *........ X*OF THIS CALL IN*. 

*. PENDING .* * GTCOM * 

*. .* * * 

*. .* ***************** 



****C4** ******* 

* * 
•X* EXIT TO GTP02 * 

* * 
*************** 



SEE CHART FE FOR 
INVOKING 1130 
ASYNCHRONOUS ROUTINE 



****D1 ********* 
' * 

* GTCT2 ENTRY * 



* C2 *X.. 



*****E1 ********** 

* * 

* RESTORE * 

* STATUS OF *. 

* ORIGINAL CALL * 

* * 
***************** 



E4 



*. 



E5 



«*. 



*. 



► IS LAST 
READ TO BE 

► . TESTED 



.* DOES *. 
.* HAS WAIT *. YES .*LAST WRITE *. 

BEEN .* X*.STATUS=2 OR 3.* 

♦.REQUESTED.* *.WITH I/O .* 

*. VALID.* 



. .* 

* NO 



. .* 
* NO 



RDWT 



F3 



.*. 



.* *. .* DOES *. 

HAS WAIT *. YES .* LAST READ * 
BEEN .*.... ....X*.STATUS=2 OR 2 

.REQUESTED.* *.WITH I/O .* 

*. .* *. VALID.* 

*. .* *. .* 

* NO * NO 



SETCD X 

*****G2 ********** 

* SET * 

* "STATCODE" = * 
♦STATUS CODE IN * 
*LSTRD FIELD OF * 

* GTCOM * 
***************** 



*****G4** ******** 

* SET * 

* •STATCODE* = * 
♦STATUS CODE IN * 
♦LSTWT FIELD OF * 

* GTCOM * 
***************** 



****H2********* 
» * 

► RETURN * 
Y 4 

*************** 
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Chart EA. End Communication Routine (1130) 



****A2 ********* 

► * 

► GTEND ENTRY * 

► * 
*************** 

FROM USER PROGRAM 



*****B2 ********** 

* SAVE * 

* CONTENTS OF * 

* REGISTERS AND * 

* STATUS * 

* INDICATORS * 
***************** 



.♦IS PTOP*. 
k PROGRAM *. NO 
INITIALIZED .*... 



**** 

* * 
,X* K2 * 

* * 
**** 



IS 1130 *• YES 
ASYNC RTN .*.... 
. PENDING .* 



*****D3********** 

* * 

* SAVE STATUS * 
»X*OF THIS CALL IN*. 

* GTCOM * 

***************** 



****D4********* 
* * 

•X* EXIT TO GTP02 * 



*************** 



SEE CHART FE FOR 
INVOKING 1130 
ASYNCHRONOUS ROUTINE 



****E1 ********* 
► GTND2 ENTRY * 



*****F1 ********** 

* RESTORE * 

* STATUS OF *. 

* ORIGINAL CALL * 

* * 
***************** 



CLOSE X 

*****F2********** 
♦QUEUE TERMINATE* 

* COMMUNICATION * 
. i.X* LINK MESSAGE * 

* FOR * 

* TRANSMISSION * 
***************** 



.* OPERATION *. NO 
■ TO END .*... 

♦.COMPLETE .* 



******H2*********** 



************* 



SETCD X 

*****J2 ********** 

* CLEAR BITS * 

* AND BITS2 TO * 
♦ZERO, SET LSTRD* 

* AND LSTWT = 2 * 

* IN GTCOM * 
***************** 

**** 

* * 

* K2 *.X 

* * 
**** 

END 

****K2 ********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FA- Telecommunications Monitor Routine (1130) (Part 1 of 5) 



**** A 1 ********* 
* * 

► GTP01 ENTRY * 



ERROR PROCESSING 



GTP01 .*. 




Bl *. 




.* IS *. 




.* ERROR *. NO 








+ . NEEDED .* 


X 


*. •* 


***** 


*. .* 


*FB * 


* YES 


* Al* 



GTOOS X 

*****C1 ********** 

* SAVE INDEX * 

* REGISTERS, * 
♦ACCUMULATOR AND* 

* STATUS * 

* INDICATORS * 
***************** 



•*IS ACC *. 
.* = /8000, *. YES 
./0800, /0400. .*.... 
a. OR /OlOO .* 



*****D2 ********** 

* * 

* INDICATE * 
.X* UNRECOVERABLE *. 

* I/O ERROR IN * 

* GTCOM * 
***************** 



GT010 X 

*****D3 ********** 

* SET ACC * 

* = ZERO FOR * 
...X* ENDING THE *. 

* OPERATION BY * 

* SCAT2 * 
***************** 



****D4********* 
I * 

* RETURN * 
► 4 

*************** 



GT0I5 


.*. 




EI *. 




• *IS ACC *. 


YES . 


* = /4000 


...*. 


( CONTENTION) 



**** 

GT02S 



.♦IS ACC *. 
.* = /2000 *. NO 
(RECEIVE .*... 

*. TIMEOUT) .* 



*IS ACC *. 






* *. 


= /1000 


*. NO 


.* 


IS *. 


(I/O AREA 
OVERFLOW). 








* 


♦.TRANSMIT .* 


*. .* 






*. END .* 


*. .* 






*. .* 




: YES 






* YES 






IF NO. 


TRANSMIT . **** 






TIMEOUT 


EXISTS 


. * 
..X* D3 
* 
**** 







.♦IS 1130*. 




* 


PTOP *. NO 


X*. 




INITIALIZED .♦.. 




* 


. .♦ 
*. .* 
*. .* 
* YES 
. **** 

* * 
..X* Kl * 

* * 
**** 



.* OPERATION *. 
►. RECEIVE 
*. INITIAL .* 



*****G2 ********** 

* IF RECEIVE * 

* INITIAL. * 

* INDICATE *. 

* INCORRECT LNG * 
♦ERROR IN GTCOM ♦ 
***************** 



♦♦♦♦♦G5 ♦♦♦♦♦***** 
♦DECREMENT GTPOl* 
♦RETRY COUNT BY * 

* ONE FOR *X.. 
♦INITIALIZATION * 

♦ ATTEMPT ♦ 
♦♦♦♦♦♦**********♦ 



.♦. 



HI 



♦ . 



.♦IS THE ♦. 
.♦ FUNC SAVE ♦. NO 
♦.ML STATUS OR .♦... 
*.A PENDING.* 
*. WRITE.* 
*. .* 
* YES 



* SET ACC = * 

. X* NON-ZERO FOR *. 
♦RETRY BY SCAT2 * 

* * 
***************** 



♦♦♦♦H3+++ ♦♦♦♦♦* 
» * 

* RETURN * 
¥ 4 

♦♦♦****♦♦♦***** 



YES.* IS *. 
..:.*. RETRY COUNT .* 
*. ZERO .* 



► USER READ 
PENDING IN 
*. BITS 
♦.FIELD.* 



*****J2 ********** 

* * 
. YES * QUEUE USER * 
.*. X* READ IN BITS2 ♦ 

♦FIELD OF GTCOM ♦ 

♦ ♦ 
♦♦♦♦************* 



* Kl *.X. 

* ♦ .X........ 

♦♦♦* . 
GT030 X 

*** ♦*<!****♦♦♦♦♦♦ 

* ♦ 

♦ SET ♦ 
♦TIMEOUT FLAG IN+ 

♦ GTCOM ♦ 

♦ ♦ 
***************** 
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Chart FB. Telecommunications Monitor Routine (Part 2 of 5) 



***** 

*FB * 
* Al* 



END-OF-OPERATION PROCESSING 
GT055 X 

*****A1 ********** 

* SAVE INDEX * 

* REGISTERS. * 
♦ACCUMULATOR AND* 

* STATUS * 

* INDICATORS * 
***************** 



» IS IT A 

WRITE 
►.OPERATION. 



***** 
*FC * 
* Al* 



FOR A READ OPERATION 



.* WAS *. YES 
t. IT TRANSMIT .*.... 
*. END .* 



WAS IT *. NO 

USER DATA .*... 
WRITE .* 



•*WAS IT *. 
.* THE *. 
•X*. READY-TO-READ. 
*. MESSAGE .* 



* SET * 

* ERROR FLAG IN *,. 

* GTCOM * 

* * 
***************** 



DID *. YES 
A TIMEOUT .*,.... 
. OCCUR .* 



****** Gl *********** 



************* 



*****H1 ********** 

* * 

* SET * 

* FUNCTION FLAG * 

* IN GTCOM * 

* * 
***************** 



.* ANY *. YES 
. UNRECOVERABLE. *. . . . 
*I/0 ERRORS.* 



.*IS THE *. 
MESSAGE *. 
INCORRECT 
. LENGTH .* 



* NO 






* YES 


***** 


* 








*FD * 
* Al* 


X 








* * 

* 


GT113 .*. 






X 




D4 *. 




*****D5********** 


.* *. 




* 




* 


INATE .* WAS IT *. 


NEITHER 


* 


SET LSTRD=6 


* 


...*. INITLZ OR .4 




* 


AND DEQUEUE 


*.... 


♦.TERMINATE.* 




* 


USER READ 


* . 


*. MSG .* 




* 




* . 


X *. .* 


X 


***************** X 


**** * INITLZ 


**** 






***** 


* * 


* * 






*FD * 


* H2 * 


* H3 * 






* Al* 



*****E3 ********** 

* * 

* SET LSTWT * 
. X* = 6 OR 7 FOR * 

* ERROR * 

* * 
***************** 



**** 
GT120 



•*WAS EOT*. 
.♦RECEIVED OR*. 
I/O ERROR . 
♦.INDICATED.* 



*****ES********** 

* * 

* SET OKNIT=l, * 

. X* SET LSTRD AND *. 

* LSTWT = 2 IN * 

* GTCOM * 
***************** 



***** 
*FD * 
* Al* 



GT06S 

X 
****J1 ********* 

* * 

* RETURN * 

* * 
*************** 



*****F2 ********** 

* * 

* SET LSTWT = * 

* 1 * 
♦(SATISFACTORY) * 

* * 
***************** 



***** 
*FD * 
* Al* 



.* IS A *. 


.*IS 1130*. 


.* TERMINATE *. NO 


.* PTOP *. YES 






*. PENDING .* 


*. .* . 


*. .* 


*. .* 


*. .* 


*. .* . 


* YES 


* NO 


. **** 


. **** 


. * * 


. * * . 


..X* H2 * 


..X* H2 * 


* * 


* * 


**** 


**** 




*****G5********** '. 




* QUEUE THE * 




♦INITIALIZATION * 




♦MESSAGE TO SEND*X... 




* TO SYSTEM/360 * 



***************** 



GT115 X 

*****H2 ********** 

* SET * 

* RTBSY=0 * 

* (OPERATIONS *> 

* COMPLETED) * 

* * 
***************** 



* 






*FD * 


H3 «... 






* A1*X.. 


* • 






* * . 


*** X 






**** . NO 


• *• 






GT133 .*. 


H3 *. 






H* *. 


. * * 






.* *. 


* WAS IT 




NO 


.* WAS IT * 










*. REQUEST 


* 




*. ENDED MSG.* 


*. MSG .* 






*. •* 



.* THE ASYNC 


*. 


NO 


+.RTN ENDED MSG. 


*.... 


*. PENDING .* 




*. .* 






*. .* 




X 


* YES 




***** 


**** . 




*FD * 


♦ FB ♦ 




* Al* 


♦ J5 ♦.X. 




* * 


* * . 




* 


**** . 







*****J2 ********** 

* * 
♦QUEUE THE ASYNC* 

* RTN REQUEST *X 

* MESSAGE AGAIN * 

* * 
***************** 



ANY I/O 

ERRORS 

.INDICATED. 



ANY I/O 

ERRORS 

.INDICATED. 



rl34 X 

*****J5* ********* 

* DEQUEUE ANY * 

* USER I/O AND * 
.:X*ASYNC RTN ENDED*. 

*MSG. RESTORE ML* 
♦STATUS IN GTCOM* 
***************** 



***** 
*FD * 
* Al* 



****#K3 ********** 

* SAVE READ * 

* STATUS OF * 

* SYSTEM/360 IF * 

* NECESSARY * 

* * 
***************** 



*****K4********** 

* * 
♦QUEUE THE ASYNC* 

* RTN ENDED * 

* MESSAGE AGAIN * 

* * 
***************** 



***** 
*FD * 
* Al* 



***** 
*FD * 
* Al* 
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Chart FC. Telecommunications Monitor Routine (Part 3 of 5) 



***** 

*FC * 

* Al* 

* * 



• *WAS IT *. 
.* RECEIVE * 
. CONTINUE OR 
*• REPEAT .* 



A2 *. A3 *. 

*• •* *. 

WAS *. NO .* DID AN *. 

T A USER .*........ X*. UNRECOVERABLE. 

READ .* X *.I/0 ERROR.* 
♦•OCCUR.* 
*. .* 
* YES 



DID 


*• 


YES 


♦OBTAIN ADDR OF * 


TIMEOUT 




*.... 


*USER BUFFER AND* 


OCCUR 


* 




* TYPE OF USER * 


.* 






* DATA * 


*. •* 




X 


***************** 


* NO 




***** 

*FD * 




• 




* Al* 





.* DID AN *. 

♦.UNRECOVERABLE. 

♦ .I/O ERROR.* 

*. OCCUR.* 



RECEIVE 

REPEAT VIA 

► SCAT2 * 

************* 



♦ **♦ 

GT065 

X 
****D2 ********* 

* * 

* RETURN * 

* * 
*************** 



* PLACE CURRENT * 
K* DATA ID FROM * 

* MESSAGE INTO * 

* GTCOM * 
***************** 



.♦ * 








.* WAS A 


.* WAS 


♦ 


. NO 


.* DATA 


*. IT A USER 




.* 




♦. MESSAGE 


*. READ .* 






♦.RECEIVED 


*. .* 








♦ . . 


*. .* 






X 


*. .* 


* YES 






♦ ***♦ 

*FD * 

* Al* 

* * 

* 


* NO 
X 


GT147 X 








.♦• 


*****C3 ***♦*♦**** 




C4 ♦. 


* SET 




* 




.* 


* LSTRD=6 








.* WAS THE 


* (TRANSMISSION 


* 




*. USER BUFF 


* ERROR) 




* 




*. USED 



************** 



♦♦♦♦♦D4 ********** 

* * 

* QUEUE USER * 

* READ IN BITS2 * 
♦FIELD OF GTCOM * 

* * 
***************** 



GT210 

*****BS ********** 

* SET * 

* LSTRD=1 IF * 
. ..X*SUCCESSFUL. OR * 

*7 IF INCORRECT * 

* LENGTH * 
*♦♦♦♦♦+♦***+♦♦*** 



* TRANSFER * 

* DATA TO USER ♦ 

* ARRAY * 

* * 
********♦♦♦♦***** 



***** 
*FD * 
* Al * 



.* WAS A *. 
.* DATA *. YES 

. MESSAGE .*.... 

♦.RECEIVED .* 



* RESTART LAST * 
X* RECEIVE * 

* OPERATION * 

* * 
*♦♦♦♦♦♦********** 



• ♦♦♦* 

*FD * 
..X* J5 * 

* * 

♦ ♦♦♦ 
GT086 

*****F2* ********* 

* SET * 

* LSTRD=3, * 
...X*OPERATION STILL* 

* IN PROCESS * 



***************** 



. * IS IT * . YE S 

.ANOTHER VALID.*.... 
♦. MSG .♦ 



**** 

* * 

* C2 * 

* * 
**** 



RECEIVE 
CONTINUE VIA 
* SCAT2 * 

************* 



GT065 

X 
****H2 ********* 

* * 

* RETURN * 

* * 
****♦♦****♦**♦* 



YES .* WAS IT *. 
...♦. ASYNC RTN 

*. ENDED MSG.* 



GT16S X 

*****F3********** 

♦ SET ♦ 

♦ OSRED=l, AS ♦ 

♦ SYSTEM/360 IS ♦ 

♦ READY TO READ ♦ 

♦ * 
***************** 



•*WAS IT *. 
* PROG *. YES 
TERMINATION .*.... 

t. REQUEST .* 



X 


GT185 


• *• 


*****G3********** 






G4 ♦. 


* CONVERT * 






■ ♦ ♦ 


* S/360 READ * 




.* 


WAS IT 


* COUNT TO WORD * 




♦ • 


ASYNC RTN 


*COUNT AND STORE* 




♦ 


REQUEST 


* IN GTCOM * 






♦ . .♦ 


***************** 


X 








***** 




* NO 




*FD * 








♦ Al* 








* * 








* 







*****H3 ********** 

* RESTORE ML * 

* S/360 READ * 

. X*STATUS AND TURN*.... 

* OFF ASACT BIT * 

* IN GTCOM * 
***************** X 

***** 
*FD * 
* Al* 



*****H4********** 

* * 

* SET OSRED=0, * 
*LSTRD AND LSTWT* 

* =5 (S/360 * 

* ENDED) * 
***************** 



*****FS ***♦♦♦♦*** 

* MODIFY * 
♦ILS01 RETURN SO* 

.X*THAT GTP01 CAN * 

* RESET THE SCA * 

* * 
***************** 



&+G5++******* 

RETURN * 
* 
************* 



GT190 

*****H5********* 
*TURN ON ASPND. 

* SAVE 
..X* ASYNCHRONOUS 

* RTN PARAMETER 
* 
**************** 



*****J2********** 

* * 

* QUEUE * 

* READY-TO-READ *X. 

* MESSAGE * 

* * 
***************** 



t.****K3 ********** 

* * 

* QUEUE * 
HNITI ALIZATION *. 
K MESSAGE * 
C * 

i **************** 



.♦PENDING*. 

.* TERMINATE *. 

•COMMUNICATION.* 

♦.LINK MSG .* 



***** 
*FB * 
* H2* 



PENDING 


*. NO 










•ENDED MSG 


* 


X 


*. .* 




***** 


*. .* 




*FD * 


* YES 




♦ Al* 



***** 

*FB * 
* J "5* 
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Chart FD. Telecommunications Monitor Routine (Part 4 of 5) 



***** 

*FD * 

* Al* 



STARTING NEXT OPERATION 



GT225 X 

*****A1 ********** 

* SAVE MSG TYPE * 
♦AND CLEAR ERROR* 

* AND OPERATION *. 

* CONTROL * 

* SWITCHES * 
***************** 



* IF * 
♦NECESSARY, SAVE* 

.X*1130 ML STATUS,*. 

* SET LSTRD, * 

* LSTWT=2 * 
***************** 



• *• 
A3 *. 
.* MAS *. **** 

» LAST *. YES * * 
OPERATION A .*....X* Fl * 
► . WRITE .* * * 
*. .* **** 

*. .* 
* NO 



.* IS A *. 
NO .* TERMINATE *. 
...*. MESSAGE .*X, 
*. PENDING .* 



NO .* AN *. YES 

...* INITIALIZATION.*.... 

*MSG PENDING* 



.* 


IS 1130 *. NO 




ASYNC 




*. ACTIVE .* 




*. 


.* 




*. 


.* 




* 


YES 




• 


**** 
* * 




* 


•X* E2 * 
* * 
**** 



.* IS AN *. 
.* ASYNC RTN *. YES 
..X*. REQUEST MSG .*.... 
*. PENDING .* 



*****C2 ********** 

* * 

* STORE PROPER * 
<* ID BYTES IN *. 

* SYSTEM BUFFER * 

* * 
***************** 



*****D2********** 

* STORE PROPER * 
*ID BYTES, PARAM* 

, X* IN BUFFER AND *. 
♦SAVE S/360 READ* 

* STATUS * 
***************** 

**** 



* C3 *... 

* * . 
**** . 

GT235 X 

*****C3********** 



♦STORE STANDARD * 
. X*SYSTEM MSG AND *. 

* I/O COUNT * 

* * 
***************** 



.* AN ASYNC 


*. 


YES 




.* 


HAS * 


*.RTN ENDED MSG. 






.S/360 CALLED 


*. PENDING 


.* 






*. 


GTEND .* 


*. .* 










*. .♦ 


*. .* 










♦ . .♦ 


* NO 










* YES 


**** . 










. ♦•** 


* * . 










*FB 


* Fl *.X. 










..X* J5 


* * . 










* 


*•** X 










**** 



*****E3 ********** 

* STORE PROPER * 

* ID BYTES IN * 
X* BUFFER AND * 

* RESTORE 1130 * 
♦MAINLINE STATUS* 
***************** 



F2 



• *. 



**** 



YES .* IS 1130 *. 
...*. ASYNC RTN 

♦.REQUESTED.* 



.♦ WAS ♦. 

* LAST *. YES * * 

OPERATION A .*....X* Jl * 

*m WRITE .* * * 

*• •* **** 

*. .* 

* NO 



IS A 
DATA MSG 
. PENDING 



*****G3********** 
*SET WTCNT=OSCNT* 

* IF 1130 COUNT * 
,X*IS GREATER, SET*. 

* INCORRECT LNG * 
*FLAG IF NEEDED * 
***************** 



.* IS *. YES 
♦.READY-TO-READ.*.... 
*MSG PENDING* 



*****H2********** 

* STORE * 

* READY-TO-READ * 
.X* ID BYTES AND *. 

* READ COUNT IN * 

* SYSTEM BUFFER * 
***************** 



*****B4********** 

* * 

* BUILD * 
,X*INITIALIZATION *. 

* MESSAGE IN * 

* BUFFER * 
***************** 



GT240 

*****C4********** 

* CONSTRUCT * 

* AND STORE * 

. ..X* HEADER, *. 
♦INCREMENT WRITE* 

* SEQUENCE NO. * 
***************** 



GT27S 

*****G4********** 

* MOVE DATA TO * 

* USER BUFFER , * 
. ..X* SET LSTWT AND * 

* LSTRD =3, * 

* STORE COUNT * 
***************** 



*****H4********** 
* SET * 
*LSTRD STATUS=4 * 
.X* <BOTH SYSTEMS * 
♦READY TO READ) * 



**** . 

* * . 

* Jl *.x. 

* * . 

**** X 
GT290 .*. 

Jl *. 

.* *. 

.* IS *. 

*. USER READ 

*. PENDING .* 

*. .* 

*. .* 

* NO 


YES 


*****J2********** 

♦ SET UP ♦ 

♦ USER READ * 

♦ * 
***************** 


. **** 

..X* C3 * 
* * 
**** 

*****J3********** 

* COMPUTE AND * 

* STORE COUNT, * 




* FLAG AND SET * > 

* MSG TYPE * 
***************** 


C 


..........X. 










X 
GT305 .*. 

Kl *. 

.* ANY *. 

.* OTHER * 

*. OPERATIONS 

*. PENDING .* 

*. .* 

*■ .* 

* YES 


NO 


*****K2 ********** 

* SET * 

* RTBSY=0 * 

* COMPLETE) * X 

* * . 
***************** . 


*****K3** ******** 

* * 

* SET UP * 




* READ * 

* * 
***************** 





***************** 



..X* C3 * 

* ♦ 
*♦♦♦ 

♦****J4********** 

* SET UP TO * 

* RECEIVE. * 
X* INCREMENT READ *. 

* SEQUENCE NO. * 

* * 
***************** 



GT245 

*****B5********** 

* ADD CONTROL * 

* INFORMATION. * 
..:X*CLEAR AND RESET* 

* PROPER GTCOM * 

* FLAGS * 
***************** 



TRANSMIT 

INITIAL VIA 

» SCAT2 * 

************* 



GT065 

X 

****D5 ********* 

* » 

* RETURN * 

* * 
*************** 



***** 

*FD * 

* J5* 

* * 



RECEIVE 

INITIAL VIA 

* SCAT2 * 

************* 



GT065 

X 

****K5 ********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FE. Telecommunications Monitor Routine (Part 5 of 5) 



INVOKING THE 1130 ASYNCHRONOUS ROUTINE 



****A1 ********* 
► * 

» GTP02 ENTRY * 
» * 

*************** 

FROM GTRED. GTWRT. GTCLT. OR GTEND ROUTINE 



*****B1 ********** 

* SAVE * 

* ACC, INDEX * 

* REGS, AND * 

* STATUS * 

* INDICATORS * 
***************** 



*t***Cl ********** 

* SET BIT FOR * 

* MAINLINE * 

* TRANSMISSION * 

* STATUS SAVE * 

* FUNCTION * 
***************** 



.* HAS *. 
»*GTP01 SAVED*. 
-THE MAINLINE . 
*. STATUS •* 



**E1******* 

* CALL * 
+ USER»S * 

* ASYNCHRONOUS * 
♦ROUTINE, PASS* 

* PARAM * 
*********** 



*****F1 ********** 

* RESTORE * 

* POINTER TO * 

* GTCOM * 

* * 
***************** 



*****H1 ********** 

* * 

* QUEUE * 
♦ASYNC RTN ENDED* 

* MSG * 

* * 
***************** 



NO .* HAS *. 
...*. GTP01 SENT 

*. THE MSG .* 



* YES 
•X.... 



****** 1 ********** 

* RESTORE * 

* REGISTERS AND * 

* STATUS AND *. 
♦REFER TO BRANCH* 

* TABLE * 
***************** 



****K2 ********* 

* RETURN TO * 
. X*SECONDARY EP IN* 

* CALLING RTN * 
*************** 
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SYSTEM/360 PTOP DATA TRANSMISSION MODULES 



This section describes the PTOP data 
transmission modules provided in System/ 
360. The modules are: 

• Controller (IKDGTCLR), which controls 
entry into the data transmission rou- 
tines invoked by calls in the user' s 
program. 

• Initializcition (IKDGTNIT), which pre- 
pares the System/360 for communication 
with an 1130 program. 

• Read and Write Data (IKDRDWRT), which 
begins data transmission and reception 
operations requested by the user's 
program. 

• Control Test (IKDGTCLT), which tests 
for completion status of a user's data 
transmission or data reception opera- 
tion. 

• End Communication (IKDGTEND), which 
breaks the communication link with the 
1130 program. 

• Interface Resolution (IKDGTIRB), which 
handles the information for a completed 
operation and determines the next step 
in data transmission or reception. 



CONTROLLER (MODULE NAME IKDGTCLR) 

Chart : HA 

Function : 

• Loads the unit assignment table. 

• Intercepts calls to System/360 data 
transmission subroutines and via the 
unit assignment table routes control to 
the modules that perform the functions 
requested by the calls. 

• Deletes the unit assignment table and 
frees the special save area acquired by 
IKDGTIRB when necessary. 

• Routes control from a System/360 data 
transmission routine back to the user's 
program. 

Entry : At one of the following points from 
a corresponding call in the user's program: 

• GTNIT for initialization. 

• GTEND for termination. 



• GTRED for read operation. 

• GTWRT for write operation. 

• GTCLT for a test function. 

Exit : To the calling program. 

Input : In register 1, the address of a 
parameter list. The contents and length of 
this parameter list are the same as the 
argument list specified in the call to the 
data transmission subroutine. 

Output : Linkage to the requested data 
transmission module, passing along the fol- 
lowing information: 

• In register 11, the address of the 
input parameter list. 

• In register 3, the address of the unit 
assignment table. 

• In register 4, the address of the GTCB 
(if one exists). 



Operation : After saving register contents, 
if it had not previously done so, the 
Controller loads the unit assignment table 
when a valid data set reference number is 
passed by the user. For an invalid data 
set reference number, the Controller places 
a value of 2 in the "statcode" variable if 
GTCLT was called, or a negative value in 
the "initcode" variable if GTNIT was 
called, and returns to the calling program. 

Using the value of the "datasetref" 
parameter as an index, the Controller then 
refers to the unit assignment table to 
determine if an appropriate GTCB exists. 



If the GTCB does not exist , 
GTNIT 



only a call 



to GTNIT from the user's mainline program 
is recognized, in which case the Controller 
passes control to IKDGTNIT. If a call is 
made to GTCLT when no GTCB exists, the 
Controller places a value of 2 in the 
"statcode" variable and returns to the 
calling program. In all other cases, the 
Controller returns immediately to the call- 
ing program. 

The Controller passes control to the 
desired module after establishing the 
appropriate register save area for use by 
the data transmission routines. This 
depends on whether the mainline program or 
the asynchronous routine is in control. 
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Upon return of control from IKDGTNIT, 
the Controller tests the return code (in 
register 15) . If the code is 4 (indicating 
that the initialization attempt was unsuc- 
cessful) , the Controller deletes the unit 
assignment table and returns to the calling 
program. 

Upon return of control from IKDRDWRT or 
IKDGTCLT, the Controller determines whether 
an asynchronous routine was in control, 
restores the register contents from the 
appropriate save area, and returns to the 
calling program. 

Upon return of control from IKDGTEND, 
the Controller tests the return code (in 
register 15) to determine the next function 
it should perform, performs the function, 
and returns to the calling program. 

The possible return codes from IKDGTEND 
and the functions performed by the Con- 
troller in response to them are as follows? 

• — Deletes the unit assignment table 
because the mainline program is being 
ended. 

» 4 — Frees the asynchronous routine 
save area because the asynchronous rou- 
tine is being ended. 

* 8 — Restores the mainline save area 
pointer because communication line 
groups other than the one that has been 
closed still exist. 



Exit: 



To 



Controller) . 



the calling program 



Input : The following information 
available by the Controller *■ 



In register 3, the address of the 
assignment table. 



(the 



made 



unit 



• In register *»,, the address of the GTCB 
associated with the data set reference 
number if the GTCB already exists; 
zero, if the GTCB does not exist. 

• In register 11, the address of a param- 
eter list that contains the following: 

+ ACdatasetref") 

address of data set reference number. 

+ U A("writebufsize") 

address of the buffer size needed for 
the largest amount of data to be 
transmitted. 

+ 8 ACreadbufsize") 

address of the buffer size needed for 
the largest amount of data to be 
received. 

+12 ACasynroutine") 

address of user's System/360 asynchro- 
nous routine. 



+16 A ("password") 

address of the 
System/360. 



password defined in 



INITIALIZATION (MODULE NAME IKDGTNIT) 

Chart : JA 
Function : 

» Creates the GTCB. 

«» Updates an existing GTCB. 

« Acquires storage for the user's read 
and write buffers. 

«» Builds and opens the data control block 
(DCB) that represents the communication 
line group. 

o Builds a data event control block 
(DECB) for input/output operations. 

« Loads other System/360 data transmis- 
sion modules. 

o Sets a timer for the five-minute 
initialization limit. 

Entry : IKDGTNIT, from the Controller. 



+20 A("initcode") 

address of variable into which the 
result of the initialization attempt 
is to be placed. 



Output: The GTCB is created and initial- 
ized, or updated. Necessary operating sys- 
tem control blocks are established. The 
user's read and write buffers are estab- 
lished. One of the following values is 
placed in the user's "initcode" variable: 

• Zero, if communication linkage is 
established. 

• Negative, if the password received from 
the 1130 does not match the password in 
the System/360, if the data set 
reference number is invalid, or if both 
"writebuf size" and "readbufsize" equal 
zero. 

• Positive, if the communication linkage 
cannot be established because of trans- 
mission line error conditions, or if 
contact is not established with the 
1130 within a certain time limit. 
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Operation : IKDGTNIT determines if the GTCB 
already exists. For an existing GTCB, 
IKDGTNIT updates appropriate fields with 
the new input information, posts a success- 
ful initialization attempt value in the 
"initcode" Vciriable, and returns to the 
calling program. 



If the GTCB does not exist, IKDGTNIT 
obtains and clears storage for the GTCB, 
places the GTCB address in the unit assign- 
ment table at a location based on the value 
of the datci set reference number, and 
initializes the fields in the GTCB with the 
input information. 



IKDGTNIT determines the total space 
needed for the user's read and write buff- 
ers, including control characters, and 
obtains storage for the buffers. 



If IKDGTNIT has not already done so, it 
loads the IKDGTIRB module and places its 
address in the unit assignment table. 



IKDGTNIT then opens and initializes the 
DCB if builds the DECB, and issues a BTAM 
Read Initial operation to obtain the pass- 
word from the 1130 system. IKDGTNIT uses 
the timer to place a five-minute limit on 
the initialization attempt. 

When the specified time limit elapses, 
and communication with the 1130 is not 
complete, IKDGTNIT deletes the IKDGTIRB 
module, closes the DCB, and frees the GTCB 
and the space obtained for the user's read 
and write buffers. If the GTCB count in 
the unit assignment table is zero, IKDGTNIT 
returns control to the Controller with a 
code of H in register 15. If the count is 
not zero, it passes a code of to the 
Controller in register 15. 

If communication with the 1130 is com- 
plete within the time limit, IKDGTNIT waits 
for completion of the read procedure (Read 
Initial followed by Read Continue or Write 
Reset) which is posted by IKDGTIRB in the 
GTCECB field in the GTCB. 

Then IKDGTNIT checks the GTCB for the 
status of the initialization attempt and 
places the appropriate code in the user' s 
"initcode" variable. If the attempt was 
unsuccessful, IKDGTNIT performs the same 
functions as it does when the time limit 
has elapsed. For a successful initializa- 
tion, IKDGTNIT loads the IKDRDWRT and 
IKDGTCLT modules, if necessary,, places 
their addresses in the unit assignment 
table, updcites the GTCB count in the unit 
assignment table, and returns to the call- 
ing program. 



READ AND WRITE DATA (MODULE NAME IKDRDWRT) 

Chart ; KA 

Function : Starts a data transmission or 
data reception operation. 

Entry : IKDRDWRT, from the Controller. 

Exit : To the calling program (the 
Controller) . 

Input : The following information made 
available by the Controller: 

• In register 4, the address of the GTCB. 

• In register 6, one of the following 
codes that determines the operation to 
be performed: 

Code — data reception (read) . 
Code 4 — data transmission (write) . 

• In register 11, the address of the 
parameter list for this call. 

For a read operation, this list contains 
the following: 

+ A("datasetref ") 

address of data set reference number. 

+ 4 A("temparray") 

address of the array to which the data 
is to be moved after it is received in 
the read buffer. 

+ 8 A("elcount") 

address of the integer that specifies 
the number of elements to be moved. 

+12 A ("datatype") 

address of the integer constant that 
defines the format of the incoming 
data. 

For a write operation, this list con- 
tains the following: 

+ A("datasetref ") 

address of data set reference number.. 

+ 4 A("temparray") 

address of the array containing the 
data to be moved to the write buffer 
for transmission to the 1130 program. 

+ 8 A ("el count") 

address of the integer that specifies 
the number of elements to be 
transmitted. 

+12 A ("datatype") 

address of the integer that defines 
the format of the outgoing data. 

+16 A("controlopt") 

address of the integer that specifies 



System/ 360 PTOP Data Transmission Modules 53 



the destination of the data or control 
information. 

Output : The appropriate GTCB fields are 
updated to reflect the transmission status 
of this read or write operation and to 
include pertinent information about the 
request. 

Operation : IKDRDWRT immediately returns to 
the calling program if one of the following 
cases exists: 

• A read operation is pending or in 
progress and another read operation is 
requested. 

• A write data operation is pending or in 
progress and another write data opera- 
tion is requested. 

IKDRDWRT places the appropriate status 
code for the operation in either the 
GTCLSTRD or the GTCLSTWR field of the GTCB 
and returns control to the calling program 
if one of the following cases exists: 

• A write data operation is requested, 
but the 1130 user program has not 
called GTRED. 

• A read or write operation is requested, 
but the 1130 program has called GTEND. 

When IKDRDWRT decides that a read opera- 
tion is requested, it first determines if 
the user's temporary array for input is in 
storage assigned to his task. To do this, 
IKDRDWRT inserts the first character from 
the array in a register and then stores the 
character back in the same position in the 
array. IKDRDWRT determines the end of the 
user* s temporary array from the number of 
elements and the format of the data; it 
then inserts the last character from the 
array in a register and stores it back in 
the same position. If the user has pro- 
vided an array location that is not 
assigned to his task, the control program 
will handle the protection check in the 
manner defined by the user's system or 
application. Otherwise, IKDRDWRT proceeds 
with its normal read request functions. 

For both read and write requests, 
IKDRDWRT places the user-specified parame- 
ters in appropriate fields in the GTCB, 
sets the status code for the operation, and 
attempts to halt all input/output opera- 
tions via BTAM's RESETPL. To ensure that 
control is not returned to IKDRDWRT before 
completion of the attempt to halt the 
input/output operation, IKDRDWRT tests a 
bit in the UCB which indicates whether the 
halt instruction has been issued. If an 
operation is in progress (that is, the 
System/360 is receiving or transmitting a 
message) , and the input/output operation 



cannot be halted, BTAM informs IKDRDWRT via 
a return code. IKDRDWRT then returns to 
the calling program. (The read or write 
function will be performed by IKDGTIRB 
after the current input/output operation 
has been completed. ) 

If all input/output operations are 
stopped, IKDRDWRT performs the requested 
function as follows: 

• For a read request , IKDRDWRT prepares 
the ready-to-read message for the user 
and transmits it to the 1130 via BTAM. 
If the 1130 user's program is also in 
ready- to-read status, IKDRDWRT sets the 
proper status code in the GTCLSTRD 
field of the GTCB. 

• For a write data request ("controlopt" 
argument equals 1), IKDRDWRT moves the 
user's data to the write buffer speci- 
fied' by the user, adds the appropriate 
control information, and transmits the 
data message to the 1130 system via 
BTAM. 

• For a write request that specifies the 
1130 asynchronous routine is to be 
scheduled or that the 1130 program is 
to be terminated , IKDRDWRT prepares the 
applicable message (asynchronous rou- 
tine request or program termination 
request) and transmits it to the 1130 
system via BTAM. 

After sending the appropriate message, 
IKDRDWRT returns to the calling program. 



CONTROL TEST (MODULE NAME IKDGTCLT) 

Chart : None 

Function : Makes the status of the most 
recently requested read or write operation 
available to the user's problem program. 

Entry : IKDGTCLT, from the Controller. 

Exit : To the calling program (the 
Controller) . 

Input : In register 11, the address of a 
parameter list that contains the following: 

+ ACdatasetref") 

address of data set reference number. 

+ H ACtestcode") 

address of the integer that specifies 
the type of test function desired. 

+ 8 ACstatcode") 

address of the variable into which the 
status code for the tested operation 
is to be placed. 
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Output a The status code is placed in the 
user's " stat code" variable- 



Operation : IKDGTCLT determines if the 
user's program specified that the routine 
should wait for completion of the operation 
before passing the status code. 

When a wait is requested, IKDGTCLT tests 
fields in the GTCB to determine if it is 
feasible to wait for completion of the 
operation. If a status code of 2 or 3 is 
found, and a valid input/output operation 
is pending or active, IKDGTCLT waits for 
completion of the operation (indicated in 
the GTCECB field by IKDGTIRB) , places the 
status code in the user's variable, and 
returns to the calling program,. 

In certain cases, IKDGTCLT does not 
wait; instead, it places the appropriate 
status code in the user's variable and 
immediately returns to the calling program. 
It will not wait when the following status 
codes are to be passed for the stated 
reasons: 

• 1, 6,, 7,, or 8 — Operation is completed 
successfully,, completed with error,, or 
cannot be completed. 

• 2 — PTOP is not initialized. 

• 4 --• Both programs are in ready-to-read 
status. 



• Deletes resident data transmission 
modules when necessary. 

• Frees the GTCB and the user's buff- 
er(s), and closes the DCB. 

Entry : IKDGTEND, from the Controller. 

Exit : To the calling program (the 
Controller) . 

Input : The following information made 
available by the Controller: 

• In register 3, the address of the unit 
assignment table. 

• In register 4, the address of the GTCB. 

Output : In register 15, the appropriate 
return code to inform the Controller of its 
next action. Return codes and their mean- 
ings are discussed in the detailed descrip- 
tion of the Controller. 

Operation : IKDGTEND determines if a user 
input/output operation is started but not 
complete, and waits for completion if 
necessary. It then halts any further 
input/output operations (by using BTAM's 
RESETPL) . To ensure that control is not 
returned to IKDGTEND before completion of 
the attempt to halt input/output opera- 
tions, IKDGTEND tests a bit in the UCB 
which indicates whether the halt instruc- 
tion has been issued. 



• 5 — 1130 program has called GTEND. 

If the user specifies a test function 
for an operation not previously issued, 
IKDGTCLT places a status code of 2 in the 
user's variable and returns to the calling 
program. 

If the user specifies a test function 
without waiting,, IKDGTCLT merely places the 
appropriate status code in the user's vari- 
able and returns to the calling program. 



END COMMUNICATION (MODULE NAME IKDGTEND) 

Chart: LA 

Function : 

• Restores the transmission status of the 
mainline program (if an asynchronous 
routine is ending) • 

• Halts input/output operations after any 
pending operation is completed (if the 
mainline program is ending) . 

• Sends the appropriate message to the 
1130 program. 



IKDGTEND determines if an asynchronous 
routine has called it. If IKDGTEND is to 
end an asynchronous routine, it resets 
flags in the GTCB, restores the transmis- 
sion status of the mainline program, trans- 
mits an asynchronous routine ended message 
to the 1130, and returns to the calling 
program with the appropriate return code in 
register 15. 

If the mainline program called GTEND, 
IKDGTEND sends a terminate communication 
link message to the 1130, and decrements 
the GTCBCNT field by one in the unit 
assignment table. If this field becomes 
zero, IKDGTEND deletes the IKDRDWRT, 
IKDGTCLT, and IKDGTIRB modules, and clears 
their entry point addresses from the unit 
assignment table. 

IKDGTEND finally closes the DCB, frees 
storage obtained by IKDGTNIT for the user's 
read and write buffers and the GTCB, sets 
the appropriate return code in register 15,, 
and returns to the calling program. 

If IKDGTEND determines that the 1130 
user's program has already called GTEND 
(the communication link is broken) , no 
message is sent, but the other ending 
functions (either for the asynchronous rou- 



System/360 PTOP Data Transmission Modules 55 



tine or the mainline program) are 
performed. 



INTERFACE RESOLUTION ROUTINE (MODULE NAME 
IKDGTIRB) 



Charts : MA, MB, MC 



Function : 



After BTAM has handled the 



input/output interruption, IKDGTIRB per- 
forms the following as necessary: 

» Maintains system ready-to-read status. 

« Monitors completion of the user's 
input/output requests that are started 
by IKDRDWRT. 

« Schedules the System/360 asynchronous 
routine for execution upon request from 
the 1130 program. 

• Acquires storage for a save area to be 
used for storing the mainline program 
transmission status while the asynchro- 
nous routine is in control. 

Entry ; IKDGTIRB, via the operating system 
dispatcher. It is scheduled via the Asyn- 
chronous Exit Effector, Stage 2, by the 
channel end appendage or exceptional end 
appendage in BTAM. 



Exi t: To 
system) . 

Input : 



the calling program (operating 



* In register 0, the address of the 
interruption queue element (IQE) used 
to schedule IKDGTIRB. 

• In register 1, the address of the 
input/output block (IOB) . 

Output : The appropriate GTCB fields are 
updated to reflect the status of any user's 
read or write operation that was just 
completed before IKDGTIRB gained control, 
and to indicate the operation that IKDGTIRB 
currently processed. 

Operation : IKDGTIRB is scheduled by the 
System/360 BTAM program at the completion 
of any input/output operation. Upon entry, 
IKDGTIRB locates the DECB and GTCB by using 
the input/ output block (IOB) pointer in 
register 1. 

If the completion code in the DECB event 
control block indicates that a Halt I/O was 
issued, IKDGTIRB immediately returns to the 
operating system. Otherwise, it determines 
the type of input/output operation that was 
just completed by testing the type field in 
the DECB. Based on the type of the com- 
pleted input/ out put operation, IKDGTIRB 



performs necessary interface functions to 
prepare for the next operation, starts the 
next operation (see "Starting the Next 
Operation" ) , and returns to the operating 
system. 

If the completed operation was Read 
Initial , IKDGTIRB determines if initializa- 
tion was previously completed. If not, 
only an initialization message is recog- 
nized. IKDGTIRB tests for input/output 
errors and a valid initialization message. 
When no errors are detected, IKDGTIRB com- 
pares the password transmitted in the 
initialization message with the password in 
the System/360 program. If these two pass- 
words agree, IKDGTIRB issues a Read Con- 
tinue operation to send the proper positive 
acknowledgment to the 1130. If the pass- 
words are different, or if an input/output 
error occurred, IKDGTIRB sets the appropri- 
ate GTCB fields and issues a Write Reset 
operation to send an EOT character to the 
1130, thus signifying that the initializa- 
tion was unsuccessful. 

If System/360 PTOP has already been 
initialized, IKDGTIRB checks for input/ 
output errors, for an invalid message for- 
mat, or, if the 1130 program had previously 
called GTEND, checks for a reinitialization 
attempt. If the reinitialization attempt 
is unsuccessful or if any error condition 
exists, IKDGTIRB issues a Write Reset oper- 
ation. Otherwise, depending on the message 
received, it sets appropriate fields in the 
GTCB and issues a Read Continue operation. 

If input/output errors occurred during a 
user read operation, IKDGTIRB sets the 
appropriate status code in the GTCLSTRD 
field, and resets the appropriate GTCB 
fields to cancel the operation. If the 
user has issued a call to GTCLT to wait for 
the read operation to complete, IKDGTIRB 
posts the GTCECB field before issuing the 
Write Reset operation. 

If the completed operation was Read 
Continue , IKDGTIRB 1 s actions depend on the 
message received from the 1130, as follows: 

• For an initialization message , if this 
is the first initialization attempt, 
IKDGTIRB posts the GTCECB field for 
IKDGTNIT, sets the OKNIT flag to one, 
and establishes the PTOP system ready- 
to-read status by issuing a Read Ini- 
tial operation. If this is a reini- 
tialization attempt, IKDGTIRB sets the 
GTEND flag in the GTCB to zero so that 
the System/360 user can perform input/ 
output operations again, and then 
starts the next operation. 

• For a data message , IKDGTIRB checks for 
input/output errors. If there are no 
errors (except for incorrect length 



56 



indication.) , it moves the data from the 
user's read buffer to the user's input 
array, omitting control characters and 
header information. If there are 
input/output errors, IKDGTIRB does not 
move the data from the user's read 
buffer. Then, IKDGTIRB sets the appro- 
priate status code in the GTCLSTRD 
field, posts the GTCECB field if the 
user called GTCLT to wait for comple- 
tion of the read operation, and starts 
the next operation. 

• For. an asynchronous routine request 
message , IKDGTIRB places the asynchro- 
nous routine parameters from the mes- 
sage into the GTCDSRAD and GTCSTART 
fields of the GTCB. It obtains storage 
for a save area, places the save area 
address in the GTCSVINF field of the 
GTCB, and stores the appropriate GTCB 
fields in the save area. It then 
creates an interruption request block 
(IRB) and an an interruption queue 
element (IQE) for the System/360 user 
asynchronous routine, and schedules the 
asynchronous routine via the Asynchro- 
nous Exit Effector, Stage 2. 

IKDGTIRB builds the parameter list (two 
words) for the user at the end of the 
IQE MQE+16) created to schedule the 
user's asynchronous routine. The pa- 
rameter list contains the addresses of 
the asynchronous routine parameters 
that were placed in the GTCB earlier. 
IKDGTIRB then inserts the address of 
the parameter list into the IQE parame- 
ter field (IQE+4). The supervisor 
places the parameter list address in 
register 1 before invoking the sched- 
uled user asynchronous routine. Thus,, 
when the user asynchronous routine gets 
control, register 1 points to the pa- 
rameter list built by IKDGTIRB. IKDG 
TIRB sets the ASYNC flag to one and 
issues a Read Initial operation for the 
PTOP program. 

However, if IKDGTIRB determines that 
System/360 is waiting to issue a ter- 
minate communication link message or a 
program termination request message to 
the 1130, it does not honor the asyn- 
chronous routine request, but begins 
the termination process instead. 

• For any other message, IKDGTIRB starts 
the next operation. 

If the completed operation was Write 
Initial Transparent with Reset , IKDGTIRB 
tests for input/output errors and 
contention. 

For a user's write data operation com- 
pleted with input/output errors, IKDGTIRB 
places the proper status code in the GTCB, 



resets the GTCB fields to cancel the opera- 
tion, posts the GTCECB field if the user 
called GTCLT to wait for completion of the 
write operation,, and starts the next 
operation. 

When a write contention for the communi- 
cation line occurs, IKDGTIRB queues the 
current write operation and issues a Read 
Initial operation to allow the 1130 system 
to proceed to transmit its message. 

When there is no error condition 
detected for this write operation, IKDGTIRB 
determines which message was sent, and 
takes action as follows: 

• For a program termination request mes- 
sage , IKDGTIRB issues a Read Initial 
operation to prepare for reintializa- 
tion from the 1130. 

• For a data message , IKDGTIRB determines 
if the length of data transmitted is 
the same as that specified in the 
ready-to-read message received from the 
1130, sets the GTCLSTWR field appropri- 
ately, posts the GTCECB field if the 
user called GTCLT to wait for comple- 
tion of the write operation, and starts 
the next operation. 

• For an asynchronous routine ended mes- 
sage , IKDGTIRB posts the GTCECB field 
for IKDGTEND, and starts the next oper- 
ation for the mainline program whose 
status has been restored. 

• For a terminate communication link roes- 
sage , IKDGTIRB posts the GTCECB field 
for IKDGTEND and returns immediately to 
the operating system. 

• For any other message, IKDGTIRB starts 
the next operation. 

If the completed operation was Write 
Reset, IKDGTIRB determines if initializa- 
tion is completed. If not, IKDGTIRB posts 
the GTCECB field for IKDGTNIT which is 
waiting for completion of the initializa- 
tion message, and returns immediately to 
the operating system. If initialization 
has completed, IKDGTIRB then determines if 
IKDGTEND is waiting to end communication. 
If IKDGTEND is waiting, IKDGTIRB posts the 
GTCECB field and returns immediately to the 
operating system. Otherwise, IKDGTIRB 
starts the next operation. 



Starting the Next Operation : After per- 
forming appropriate functions for the oper- 
ation just completed, IKDGTIRB determines 
from the fields in the GTCB which operation 
(if any) is pending. It tests for a 
pending operation and takes action in the 
following order: 
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For a pending 
link message , 



terminate communication 



IKDGTIRB determines if 
the 1130 has previously called GTEND. 
If so, IKDGTIRB posts completion in the 
GTCECB field for IKDGTEND and returns 
to the operating system. If the 1130 
had not previously ended communication, 
IKDGTIRB issues a Write Initial Trans- 
parent with Reset operation to send the 
message, and sets the GTCB fields 
appropriately . 

» For a pending program termination re- 
quest message , IKDGTIRB determines if 
the 1130 has previously called GTEND. 
If so, IKDGTIRB issues a Read Initial 
operation to await reinitialization. 
If the 1130 did not end communication, 
IKDGTIRB issues a Write Initial Trans- 
parent with Reset operation to send the 
message, and sets the GTCB fields 
appropriately. 

<» For a pending write operation queued 
because of contention, IKDGTIRB starts 
the operation by setting the proper 
flags in the GTCB, and issues the Write 
Initial Transparent with Reset opera- 
tion for the queued write. 

« For a pending asynchronous routine re- 
quest message . IKDGTIRB prepares the 
message in the buffer, sets the GTCB 



fields appropriately, and issues the 
Write Initial Transparent with Reset 
operation. 

• For a pending ready- to- read message , 
IKDGTIRB performs the same functions as 
for the asynchronous routine request 
message. 

• For a pending data message , IKDGTIRB 
moves the user-specified data to the 
user's write buffer, inserts the con- 
trol information, sets the GTCLSTWR 
status to 3, sets appropriate GTCB 
fields, and issues the Write Initial 
Transparent with Reset operation. 

If there is no user operation pending, 
IKDGTIRB issues a Read Initial operation to 
establish system ready- to-read status. 



FLOWCHARTS 

This section contains autocharts showing 
the logic flow for the System/360 PTOP data 
transmission modules. The charts are 
ordered alphabetically (according to iden- 
tification) in the sequence in which the 
routines are described. Refer to Appendix 
G for an explanation of the symbols used on 
the autocharts. 
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Chart HA. Controller Routine (System/360) 



**** A 1 ********* 

* * 
♦IKDGTCLR ENTRY * 

* * 
*************** 

FROM USER PROGRAM 



*****B1********** 

* ESTABLISH * 
♦ENTRY POINT TO * 

* DATA * 

* TRANSMISSION * 

* ROUTINE * 
***************** 



.* IS DATA * 


„ NO 


.* IS IT 


*. SET REF NO. 


♦ .... 


....X*. A CALL TO 


*. VALID .* 




*. GTNIT 


*. •* 




*. .* 


*. .* 




*. .* 


* YES 




* NO 
**** . 

* * . 

* D2 *.X. 

* * . 
**** X 


LOADTBL X 




ERR1 .*. 


*****D I ********** 


D2 *. 


* LOAD UNIT 


* 


.* * 


* ASSIGNMENT 


* 


.* IS IT 


* TABLE (MODULE 


* 


*. A CALL TO 


* IKDUATBL) 


* 


*. GTCLT 



***************** 



*****C3 ********** 

* * 

* SET * 
<* USER'S CODE *• 

* NEGATIVE * 

* * 
***************** 



*****D3* ********* 



♦SET •STATCODE 1 * X * 
■X*TO 2. OPERATION*. .......X* 

* NOT STARTED * X 

* * . 
***************** 



RETURN 

****D4********* 
* * 

RETURN * 



*************** 



.* DOES GTCB *. 

K. EXIST FOR . 

*.THIS DSRN.* 



*****F1 ********** 

* * 

* ESTABLISH * 

* APPROPRIATE * 

* REGISTER SAVE * 

* AREA * 
***************** 



ISNIT .*. 




E2 *. 




.* *. 


**** 


NO .* WAS IT *. NO 


* * 




•X* D2 * 


*. GTNIT .* 


* * 


*. .* 


**** 


*. .* 




* YES 





IS IT 
CALL TO 
GTNIT 



IS IT 

A CALL TO 
GTEND 



*****G2 ********** 
♦IKDGTNIT JA* 
*—*—*—*-*—*—*-*—* 
K* INITIALIZE *. 

* FOR PTOP * 

* PROGRAM * 
***************** 



BRCHRTN 

*****H2 ********** 
♦SEE NOTE * 

*-*-*-*-*-*-*-*-* 
...X* READ/WRITE *. 

* OR TEST * 

* FUNCTION * 
***************** 



NOTE EITHER IKDRDWRT 

OR IKDGTCLT IS ENTERED 
DEPENDING ON THE CALL. 



WHAT 
IS RETURN 

CODE 



***************** 



****H4** ******* 
* * 

I< RETURN * 
l« * 

*************** 



*****J1 ********** 
♦IKDGTEND LA* 
*-*-*-*-*-*-*-*-* 

* PERFORM * 
♦ENDING FUNCTION* 

* * 
***************** 



WHAT 

IS RETURN 

CODE 



**** 

* * 

* G4 * 

* * 

**** 



FREEASYN 

*****K2* ********* 

♦SAVE AREA USED * 
...X*WHILE ASYNC RTN*. 
*WAS IN CONTROL * 



***************** 



****K3 ********+ 

* * 

* RETURN * 

* * 
*************** 
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Chart JA- Initialization Routine (System/360) 



**** A 1 ********* 

* * 
*IKDGTNIT ENTRY * 

* * 
*************** 

FROM CONTROLLER 



WAITNIT X 

*+***A4 ********** 

* WAIT * 

* FOR * 

* INPUT/OUTPUT * 

* COMPLETION * 

* * 
***************** 



.* WAS *. 
.* THERE A *. NO 
*• TRANSMISSION .*... 
*. ERROR .* 



**** 

* * 
•X* F4 * 

* * 
**** 



.X* 



UPDATE USER * 

PARAMETER *. 
POINTERS IN * 
* GTCB * 

***************** 



*****C3 ********** 

* SET * 
♦STATUS CODE TO * 

X* ZERO. SET * 
♦RETURN CODE = 0* 

* IN REG IS * 
***************** 



•* WERE *• 
.* THE 
. PASSWORDS 
*. INVALID . 



* SET * 
X* STATUS CODE * 

* POSITIVE * 

* * 
***************** 



*****D1 ********** 
* ESTABLISH AND * 
♦INITIALIZE GTCB* 
♦OBTAIN STORAGE * 
♦FOR USER'S READ* 
♦AND WRITE BFRS * 
***************** 



GOBACK . 
X 
****D3*****^** 

* * 

* RETURN * 

* ♦ 
*•♦*♦********** 



*****D4********** 

* * 

* SET * 

* STATUS CODE * 

* NEGATIVE ♦ 

* * 
***************** 



*****E2********** 

♦ LOAD ♦ 
♦MODULE IKDGTIRB* 

.X* PLACE ADDR IN ♦ 
♦IKDUATBL AND IN* 

* DCB ♦ 
♦♦♦♦♦************ 



♦ OPEN ♦ 

♦ BTAM DCB FOR ♦ 

♦ BSC ♦ 

♦ ♦ 
♦♦♦♦♦♦*♦♦♦**♦♦♦♦♦ 



♦ F4 *... 

* * .: 
*•** 

LOADRTNS X 

*****F4********** 

* IF NECESSARY. ♦ 
♦LOAD IKDRDWRT. ♦ 

♦ IKDGTCLT AND ♦ 

♦ PLACE ADDR IN * 

* IKDUATBL * 
♦♦♦♦♦♦♦♦♦♦♦♦***** 



♦*****G1 *********** 

* READ INITIAL * 

FOR PASSWORD 

* VIA BTAM * 

************* 



*****G4********** 

* SET STATUS * 

* CODE TO ZERO. * 
•UPDATE COUNT OF* 

* GTCBS. RETURN * 

* CODE =0 * 
***************** 



* SET S MINUTE * 

* TIME LIMIT ON * 

* PROCESS * 

* * 
***************** 



****H4********* 

► * 

► RETURN * 

► 4 
*************** 



.* HAS *. 
.* SOME *. NO 
.COMMUNICATION.*... 
♦.BEEN MADE.* 



♦ SET ♦ 
X* STATUS CODE ♦. 

♦ POSITIVE ♦ 

♦ ♦ 
***************** 



GIVECODE 

*****J3********** 

♦STORE CODE FOR ♦ 

*USER. CLOSE DCB* 

. ...X*DELETE IKDGTIRB*. 

X * FREE GTCB AND * 

* BUFFER SPACE * 

. ***************** 

**** 



.X*.DOES GTCBCNT 



*****J5 ********** 

* * 

* SET * 
.X*RETURN CODE = 4* 

* IN REG 15 ♦ 

* ♦ 
♦♦♦*♦************ 



* RESTORE SAVE * 

* AREA AND SET *. 
♦RETURN CODE = 0* 

* IN REG IS * 
***************** 



****K5********* 
K * 

► RETURN * 
* * 

*************** 
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Chart KA. Read and Write Data Routine (System/360) 



****A 1********* 
* * 

*IKDRDWRT ENTRY * 



*****B1 ********** 

* * 

* ESTABLISH * 

* APPROPRIATE * 

* REGISTER SAVE * 

* AREA * 
***************** 



.* IS THIS A *. 


READ 




■ * 


IS A *. YES 




♦.READ OR WRITE. 












*. REQUEST .* 






*. PENDING .* XX 


*. .* 








*. .* 




*. .* 








*. .* 




* WRITE 








* NO 


. **** 










**** 


.* 










. * * 


• * C3 










..X* Fl * 


.* 










* * 


> **** 


X 








**** 





.* IT ASYNC *. YES 
K.RTN OR CANCEL.*.... 
*. REQUEST .* 



REQUEST *. YES 
ALREADY .*... 
QUEUED .* 



♦RESTORE REG 13 * 

* FROM *. 

* APPROPRIATE * 

* SAVE AREA * 
***************** 



****C4********* 
► * 

* RETURN >t 

H 4 

*************** 



*****E2 ********** 

* SET * 

* PROPER FIELDS * 

* IN GTCB * 

* * 
***************** 



* FI *.X. 

* * . 
**** 

COMPUTE X 

*****F1 ********** 

* COMPUTE DATA * 
*LNG. STORE DATA* 
♦ARRAY ADDR. SET* 

* LAST WRITE * 
♦STATUS CODE = 2* 
*♦♦♦♦♦*♦♦♦♦♦**♦♦♦ 



.♦IS IT READ *. WRITE .♦ IT ASYNC ♦. YES 
OR WRITE .*........X*.RTN OR CANCEL.*.... 

*. REQUEST .♦ *. REQUEST .* 



*****F4********** 

* MOVE DATA TO * 

* USER BUFFER * 

* INSERT CTRL * 
♦CHARS. SET LAST* 
♦WRITE STATUS=3 * 
**********♦♦♦♦♦♦* 



WR1130 

*****E5 ********** 

* SET UP * 

* APPROPRIATE * 
. . .X*MESSAGE IN PTOP* 

* BUFFER. SET * 

* GTCB FIELDS * 
***************** 

**** 



* F5 *.X 



**** 
WRDATA X 

******F5*********** 

REQUEST 

* WRITE 'TIXR 1 * 

FROM PTOP 

* BUFFER VIA * 

BTAM 

************* 



.* IS THIS A *. WRITE .* IS 1130 *. K 
.READ OR WRITE.*..... ....X*. USER READY TO.*. 

*. REQUEST .* *. READ .* 



*****G3********** 

* SET UP * 

* USER * 

* READY-TO-READ * 

* MESSAGE * 

* * 
***************** 



* HI *.X. 



**** X 










RESET .*. 










HI *. 










.* * 






**** 


.* DID 1130 


*. 


YES 


* 




*. USER CALL 




* . • . . 


X* 


C3 


*. GTEND 


• * 




* 





.* IS 1130 *. YES 
*.USER READY TO.*.... 
*. READ .* 



******G4*********** 

REQUEST 

* WRITE "TIXR" * 

FROM USER 

* BUFFER VIA * 

BTAM 

************* 

. **** 



**** 

*****H4********** 

* SET * 

* LAST READ * 
.X*STATUS=4, BOTH * 

* SYSTEMS READY * 

* TO READ * 
***************** 



*****J 1********** 

* * 

* ATTEMPT TO * 

* HALT I/O * 

* OPERATIONS * 

* * 
***************** 



**** 
» * 
► F5 * 
* * 

**** 



I/O 


*. 


NO 


OPERATION 




*.... 


HALTED 


* 




*. .* 






*. .* 




X 


* YES 




**** 






* * 






* C3 * 


X 




* * 


**** 




**** 


* * 






* E3 * 






* * 






**** 
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Chart LA. End Communication Routine (System/360) 



****A1********« 
* * 

*IKDGTEND ENTRY * 



UPDATE X 

***** A3 ********** 

* CLOSE BTAM * 

* DCB AND CLEAR * 
*GTCB ADDR FIELD* 
*IN UNIT ASGNMNT* 

* TABLE * 
***************** 



*****B1 ********** 

* * 

* ESTABLISH * 

* APPROPRIATE * 

* REGISTER SAVE * 

* AREA * 
***************** 



*****B3 ********** 

* * 

* FREE USER'S * 
•READ AND WRITE * 

* BUFFERS * 

* * 
***************** 



WAITWRT 

*****C2 ********** 

* WAIT * 
FOR WRITE * 
OPERATION * 

* COMPLETION * 

* * 
***************** 



*****C3 ********** 

* FREE * 

* GTCB STORAGE, * 

* SET RETURN * 

* CODE=0 IF 

* GTCBCNT=0 * 
***************** 



* ATTEMPT TO * 

* HALT I/O * 

* OPERATIONS * 

* * 
***************** 



****D3 ********* 

* * 

* RETURN t 

* * 
*************** 



El *• *****E2********** 

.* CAN *. * * 

.* I/O *. NO * WAIT * 

*. OPERATION BE .*.... . • . • X* FOR I/O * 

*. STOPPED .* * COMPLETION * 

*. •* * * 

*. .* ***************** 

* YES 

.X......................... 

X 
CHKASYN .*. 

Ft *• *****F2********** 

•* WAS *. * RESTORE * 

.* IT GTEND *. YES * MAINLINE * 

*. FROM THE .*.... ....X* TRANSMISSION * 

*.ASYNC RTN.* *STATUS IN GTCB * 

*• -* * * 

*. .* ***************** 

* NO 

.X......................... 

X 
CHKEND .*. WRITE 

Gl *. *****G2********** 

.* *. * SET UP * 

.* DID 1130 *. NO *ASYNC RTN ENDED* 
*. USER ISSUE .*........X* OR TERMINATE *. 

*. GTEND .* * MSG IN PTOP * 

*• .* * WRITE BUFFER * 

*. .* ***************** 

* YES 



WRITE 
MESSAGE VIA 
BTAM 4 

************* 



* WAIT * 

K* FOR I/O *. 

* COMPLETION * 

* * 
***************** 



**** 

* * 

* Jl *X.. 

* * 

**** . NO 

• *. 

G5 *. 

.* *. 

.* WAS * 

. X*.IT ASYNC RTN 

*. END .* 



.*. ASYNRET 

HI *. *****H2********* 

• * *. * RESET ASYNC 

.* WAS *• YES * RTN BIT. SET 
.IT ASYNC RTN .*........ X* RETURN CODE= 



*. 



END 



RESTORE SAVE * 
* AREA POINTER * 
***************** 



. X* H2 * 
* * 
**** 



****H3********* 

* * 

* RETURN * 

* * 
*************** 



**** • 
DECRMNT X 

«****jl ********** 
« * 

*DECREMENT COUNT* 

* OF GTCBS IN * 
*UNIT ASSIGNMENT* 

* TABLE * 
***************** 



. X* 



*****K2 ********** 

* DELETE * 
MODULES * 

IKDRDWRT, * 

* IKDGTCLT, AND * 

* IKDGTIRB * 
***************** 
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Chart MA. Interface Resolution Routine (System/360) (Part 1 of 3) 



****A1 ********* 
* « 

♦IKDGTIRB ENTRY * 



*****B1 ********** 

* INITIALIZE * 

* REGISTERS. * 

* ACCESS GTCB * 

* ADDR VIA * 

* IOBDCBAD * 
***************** 



NO .* DID 
...*. 1130 CALL 

*. GTEND . 



3 .* IKDGTEND 
.*. WAITING TO 

*. END 



***** 
*MA * 
* A4* 



* POST * 

<* GTCECB FOR *... 

* IKDGTEND * 

* • * 
***************** 



***** 
*MC * 
* Al* 



* POST * 
K* GTCECB FOR *. 

* IKDGTNIT * 

* * 
***************** 



****B5********* 

* * 

* RETURN * 

* * 
*************** 



WAS A 
HALT I/O 
. ISSUED 



.* OPERATION *. WRITE 
,X*.TYPE READ OR .*...... 

*. WRITE .* 



RESTORE 

X 
****D1 ********* 

* * 

* RETURN * 

* A 
*************** 



***** 
*MA * 
* Fl* 



CLRPTOP X 

*****F1 ********** 

* CLEAR PTOP * 

* SYSTEM BUFFER * 
•X* IN GTCB AND *> 

• * DETERMINE * 
- *LENGTH OF READ * 

• ***************** 



***** 
*MB * 
* El* 



SVWRT 


NOERRS .*. 


*****E2********** 


E3 *. 


* SET PROPER * 


.* IS *. 


♦CONTENTION FLAG* 


YES .* THERE *. 


* AND SET WRITE *X.. 




* STATUS = 2 IN * 


*. .* 


* GTCB * 


*. .* 


***************** 


*. .* 




* NO 


**** . 


. **** 


*MA * 


*MB * 


* F2 *.X. 


..X* Al * 



NO .* IS A *. 

. ..*. USER READ . 

*. PENDING .* 



USERTI X 

*****G2 ********** 

* CLEAR * 

* USER READ * 

* BUFFER AND * 

* DETERMINE * 
♦LENGTH OF READ * 
***************** 



WAS IT *. YES 
USER DATA .*.... 
WRITE .* 



*****D5********** 

* SET LAST * 
♦WRITE STATUS = * 

.X* 6/8 IN GTCB. *. 

* RESET GTCB * 

* FLAGS * 
***************** 



READ 

INITIAL <TI) 

» VIA BTAM 4 

************* 



.*WAS IT *. 



*. .* 
* NO 
**** 
*MA * 
* F4 *.X. 



.* DID ASYNC *« 

RTN CALL 

*. GTEND .* 



SETRD 

*****E5*** ******* 

* SET LAST * 

* READ STATUS = * 
X* 6/8 IN GTCB. *..X 

X * RESET GTCB * 
. * FLAGS * 
. ***************** 
* 
* * 

*MA * 

* E5* 

***** 



*****F5********** 

* POST GTCECB * 

* FOR IKDGTEND * 
X* AND RESTORE * 

♦MAINLINE GTCECB+ 



♦♦♦**♦*****♦**♦♦♦ 



♦ MA * 

* F5* 
***** 



**** 




**** 








♦ ♦♦* 


*MA * 




*MA * 








*MA * 


* H3 *... 




* H4 *.X 








* H5 *... 


* * . 




* * 








♦ ♦ 


**** . 




**** X 






**** X 


WRTERR X 




CHKOP .*. 






TESTWAIT .*. 


******H3 *********** 


H4 ♦. 






H5 *. 






.* IS IT * 






.* *. 


* WRITE 


* 


YES .* READ 


*. 




NO •* IS *. 


RESET <TR) 












* VIA BTAM 


* 


*.OPER/ 


^TION 


.♦ 




*. •* 



************* 



****J3********* 
» 4 

* RETURN * 

* * 
*************** 



. 






**** . 








*MA ♦ 








♦ J5 *.X. 








♦ * . 


X 






**** . 


.*. 




POSTUSER X 


J4 *. 






*****J5 ********** 


.* IS *. 




♦ * 


* IKDGTEND 


* 


NO 


* POST * 


WAITING TO 


.*.... 


* GTCECB FOR ♦ 


♦ . END 


.* 




* IKDGTCLT ♦ 


*. .* 






* * 


*. .* 




X 


***************** 


* 




***** 








*MC * 




• 




* Al* 
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Chart MB. Interface Resolution Routine (System/360) (Part 2 of 3) 



.♦WAS IT MSG *. 

*.T0 TERMINATE . 

*.I130 PROG.* 



***** 
*MA * 
* Fl* 



WAS IT *. YES 

USER DATA .*........ X*. 

WRITE .* 



**** 
*MA * 
.X* FA 



♦****C2 ********** 

* * 

* SET WRITE * 

* STATUS=1 AND * 

* RESET GTCB * 

* FIELDS * 
***************** 

. **** 

*MA * 
..X* H5 * 



*****B3 ********** 

* * 

* SET WRITE * 
.X* STATUS=7 AND * 

* RESET GTCB * 

* FIELDS * 
***************** 

• **** 
. *MA * 
..X* H5 * 



**** 
POST 

*****C3 ********** 

* POST * 

* GTCEC8 FOR * 

* IKDGTNIT AND *X. 

* SET OKNIT = 1 * 

* IN GTCB * 
***************** 

. **** 

*MA * 
..X* Fl * 



**** 




* * 




* A4 * 




* * 




**** 




X 




RDCONT .*. 


TESTMSG .*. 


A4 *. 


AS *. 


• * *• 


. * *. 


.* WAS IT *. NO 


.* WAS IT *. YES 






*. PASSWORD .* 


*. MESSAGE .* 


*. .* 


*. .* 


*. .* 


*. .* 


* YES 


* NO 




. **** 




. * * 




..X* D3 * 




* * 


X 


**** 





WHATHEN .*. 




D3 *. 


**** 


.* * 


* 


.* DID 


D3 *. 


. ..X*. 1130 CALL 


* 


*. GTEND 


**** 


*• •* 



**** 

*MB * 

* El *. 



NO .* HAD * 

. ..*. 1130 CALLED 

*. GTEND .* 



***** 
*MA * 

* ES* 
* * 



*****C4********** 



♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦ 

. **** 

. ♦ MC * 
..X* Al * 

* * 
**** 



DA *. 
•* IS *. 
* IKDGTEND 
WAITING TO 

* . END 



YES 
**** 
*MA 4 
• X* AA 



*****C5********** 

* SET * 

* LAST READ * 
♦STATUS TO 1 OR * 

* 7 AS REQUIRED * 

* * 
***************** 



* MOVE DATA TO * 

► USER ARRAY AS * 

► NECESSARY * 

* * 
***************** 



***** 
*MA * 
* Fl* 
* * WAITONRD 



.* IS IT *. 
.* READ *. CONTINUE 
*. INITIAL OR .*.... 
*. CONTINUE .* 



.* WAS *. 

NO .*IT REQUEST *. YES 

...*. FOR S/360 .*.... 

*.ASYNC RTN.* 



♦INITIAL **** 
. * * 

* AA * 
. * * 

**** 

X 

.*. PASSMSG .*. 

Fl *. FZ *. 

.* WAS *. •* *. 

* PTOP *. NO .* ANY 

INITIALIZED .*.... ....X*. I/O ERRORS 



***** 

*MC * **** 
* Al** * 
* * * F3 *. 



.* WAS *. 
.♦INITIALIZE *. YES 
•X*.MSG RECEIVED .*... 



.* WAS *. 

IT A USER 

READ 

.OPERATION. 



***** 
*MA * 
* E5* 



♦ SET POSITIVE * 
♦FLAG AND WRITE ♦ 

♦ RESET FLAG IN ♦ 

♦ GTCB ♦ 
***************** 

• **** 



CHKEND 


.*. 










HI *. 










.* ♦. 








.* 


HAS *. 


YES 




* 


* 


1130 CALLED . 
GTEND .♦ 

♦ . .♦ 
*. .* 
* NO 


*.. .. 

X 
**** 

* 


* 








* F3 


* 






• 


* 
**** 


* 



PASSOK 
YES .* 



CHKMSG 


.*. 

Jl *. 

* * 






• * 


IS IT A 


♦ .NO 






VALID MSG 
FORMAT 






♦ 


♦ 


X 




*. .* 




♦ **** 




*. .♦ 




*MA * 




* YES 




* H3* 



*****K1 ********** 
* * 

*SET 



*♦♦♦♦**********♦♦ 



READ 
CONTINUE (TT) 
* VIA BTAM * 

♦♦♦♦♦♦***♦*** 



♦♦♦♦♦J3 ♦♦♦♦♦♦*♦♦♦ 

* * 

* SET NEGATIVE * 
♦FLAG AND WRITE * 

* RESET FLAG IN * 

* GTCB * 
*♦********♦♦♦♦♦♦♦ 

♦ ♦♦♦ 

. ♦MA * 
..X* H3 * 

* + 
**** 

****K3** ******* 

* * 
<* RETURN * 

* * 
*************** 



***** 


* NO 


***** 


*MC * 




*MA * 


* A3* 




* J5* 


* * 


X 


* * 


♦ 


***** 
*MA * 


* 



IKDGTEND 


.♦ 


.. .. 


WAITING .* 






♦ . .♦ 






*. .♦ 




X 


* NO 




***** 
*MA * 



.* THERE A *. 

. PENDING MSG . 

*.TO CANCEL.* 

*.1130 .* 



*****H4********** 

* * 

* CREATE IRB * 

* AND IQEi * 
♦COMPLETE FIELDS* 

* * 
***************** 



**J4******* 

* * 

* SCHEDULE * 
* ASYNC RTN VIA * 

* AEE STAGE 2 * 

* * 
*********** 



♦****KA********** 

* GET * 

* STORAGE FOR * 

* SAVE AREA AND * 

* SAVE MAINLINE * 

* STATUS * 
***************** 



* SET UP * 
X* APPROPRIATE * 

♦FIELDS IN GTCB ♦ 

♦ ♦ 
♦****♦***♦**♦***♦ 



***** 
*MC * 
* A3* 
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Chart MC. Interface Resolution Routine (System/360) (Part 3 of 3) 



***** 

*MC * 
* Al* 



STARTING THE NEXT OPERATION 



***** 
*MC * 
* A3* 



► TERMINATE *. 
MSG (GTEND) . 
*. PENDING .* 



.*. 




WRITIXR X 


A2 *. 




ik***** A3 *********** 


.* *. 




WRITE INITIAL 


. * HAS *. 


NO 


* TRANSPARENT * 


X*. 1130 CALLED .* 






*. GTEND .* 




X * (TIXR) VIA * 


*• .* 




BTAM 


*. .* 




, ************* 


* YES 






**** 








*MA * 








..X* Fl * 








* * 








**** 








.*. 









.♦REQUEST TO *. YES 


.* HAS *. N 






PROG PENDING* 


*. GTEND .* 


*. .* 


*. .* 


*. .* 


*• .* 


* NO 


* YES 




• **** 




*MA * 


• 


..X* Fl * 



* WRITE *. 
CONTENTION . 
K. PENDING .* 



**** 

*****C2********** 

* RESET * 

* APPROPRIATE * 
•X* FLAGS IN GTCB *..« 

* FOR OPERATION * 

* * 
***************** 



TESTPEND .*. SETMSGUP 

Dl *. *****D2********** 

•■* IS IT *. * SET UP * 

.♦REQUEST FOR*. YES * PROPER MSG * 

*. 1130 ASYNC .*. -..X*FORMAT AND SET *. 

*.RTN OR A .* * FLAGS IN GTCB * 

♦.READ .♦ * * 

*. .* *****♦******♦♦♦** 
* NO 



USERPEND .*. 



.* IS USER 
*. WRITE DATA 
♦. PENDING . 



MVDATA 

*****E2********** 

* IF 1130 IS * 

. YES *READY TO READ, ♦ 

.*........X* MOVE DATA TO *. 

♦WRITE BFR, SET * 
♦WRITE STATUS=3 * 
***************** 



*****F2 ********** 

* SET UP * 

* THE * 
.X* READY-TO-READ *. 

* MSG * 



****B3********* 

* RETURN < 
► * 

*************** 



***************** 



***** 
*MA * 
* F2* 
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SYSTEM/360 CONVERSION ROUTINES 



This section describes the PTOP data 
conversion routines provided in System/360. 
The routines are: 

• Convert from Systera/360 Integer to 1130 
Integer (IKDGDCFI) , 

• Convert from 1130 Integer to System/360 
Integer (IKDGDCTI) , 

• Convert from System/360 Standard-Length 
Real to 1130 Standard- Precision Real 
( IKDGDCFF) , 

• Convert from 1130 Standard-Precision 
Real to System/360 Standard-Length Real 
( IKDGDCTF) , 

• Convert from System/360 Double- 
Precision Real to 1130 Extended- 
Precision Real (IKDGDCFE), and 



and the 1130 system. The conversion rou- 
tines resolve these differences by changing 
data of the transmitting system to the 
order and format required of data used by 
the receiving system. 

Elements in an 1130 array are ordered in 
descending storage addresses. Elements in 
the System/360 array are ordered in ascend- 
ing storage addresses. Consequently, the 
elements in arrays transmitted from one 
system must be reordered before they can be 
used by the other system. Reordering is 
done for each transmitted array. Reformat- 
ting is done only if required. 

All arrays are transmitted between the 
two systems in the order and format used in 
the 1130 system. Conversion is done only 
at the System/360 end of the transmission 
line. 



• Convert from 1130 Extended-Precision 
Real to System/360 Double-Precision 
Real (IKDGDCTE). 



TERMINOLOGY USED IN THIS SECTION 

In this section, the term forma t refers 
to the FORTRAN formats in both systems as 
follows: 



Reordering Arrays 

Reordering of arrays is done either 
between arrays, if they occupy separate 
storage areas, or in place, if they occupy 
overlapping storage areas (see "Overlapping 
Arrays"). Each type of reordering has 
variations depending upon the type of 
reformatting required, if any. 



• 1130 one-word format = one 1130 word (2 
bytes) . 

• 1130 standard-precision format, integer 
or real = two 1130 words (4 bytes). 

• 1130 extended-precision real format = 
three 1130 words (6 bytes). 

• System/360 half word format = two bytes. 

• System/360 standard- length format, 
integer or real = one System/360 word 
U bytes). 

• System/360 double- precision real format 
= two System/360 words (8 bytes). 

In addition, the term array refers to 
the format and order of FORTRAN arrays as 
they appear in 1130 storage or in System/ 
360 storage. 



GENERAL INFORMATION 

The ordering of elements in an array and 
the format of the data making up an indi- 
vidual element differ between System/360 



When reordering between arrays, the ele- 
ments of the input array are moved to the 
output array in reverse order so that the 
last element of the input array is the 
first element of the output array (see 
Figure 12). 

When reordering in place, a register is 
used to temporarily store an element from 
the input array that is being reordered. 
The reordering is done by switching the 
first and last elements, the second and 
next to last elements, and so on until the 
entire array has been inverted (see Figure 
13). 

Reformatting Elements in Arrays 

Where the format of the System/360 data 
is the same as that of the 1130 data, the 
reformatting step is skipped and conversion 
merely consists of reordering the input 
array. If the formats differ, reformatting 
is necessary for the one system to use the 
data of the other system. Details of the 
reformatting procedures are explained in 
the discussion of each conversion routine. 
Data conversion formats are illustrated in 
Appendix D. 
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Input Array 



Output Array 




NOTE : 

If reformatting is needed, elements are 
reformatted in a general register as shown 
before placing them in the output array. 
Otherwise, elements are moved directly 
from the input array to the output array 
without using the reformatting register. 

Figure 12. Reordering Between Arrays 



Determining Where Conversion Is to Be Done 

Before any conversion is done, the input 
and output arrays are compared to see if 
they occupy separate or overlapping storage 
areas. This is done by comparing the 
starting addresses of the input and output 
arrays. If these addresses are equal, the 
arrays coincide and are considered to be 
overlapped. Otherwise, the greater start- 
ing address (of either the input or the 
output array) is then compared with the 
address of the last element in the other 



array calculated by the data conversion 
routine. If the starting address is less 
than the last element address, the arrays 
overlap; if not, the arrays are entirely 
separate. 

If the arrays occupy common storage 
areas, a switch is set to indicate that 
conversion is to be done in place. If the 
arrays overlap, it may be necessary to move 
data from the input array before any con- 
version is done. 

Note : Conversion done in place overlays 
the original contents of the input array so 
that it is no longer valid. Conversion 
done between arrays does not change the 
data in the input array. 

Overlapping Arrays 

Arrays may overlap as illustrated in 
Figure 11 in any one of the following ways: 

1. The input array coincides with the 
output array. No data is moved; con- 
version is done in place. 

2. The bottom of the output array over- 
laps the beginning of the input array. 
To prevent the overlaying of yet-to-be 
converted data by converted data, the 
input array data must be moved to the 
top of the output array before any 
conversion is done. Conversion is 
then done in place. 

3. The bottom of the input array overlaps 
the top of the output array. For all 
routines except IKDGDCFI, to prevent 
the overlaying of yet-to-be converted 
data by converted data, the input 
array data is moved in sections of up 
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to 256 bytes from the bottom of the 
input array to the bottom of the 
output array. Conversion is then done 
in place* When this condition exists, 
and the IKDGDCFI routine has been 
invoked, conversion is done in place 
before the converted data is moved to 
the output array. 

The output array is contained within 
the input array. This can occur when 
converting 4-byte data to 2-byte data 
or 8-byte System/360 double- precision 
real data to 1130 extended- precis ion 
real data. Conversion is done in 
place. The converted data is then 
moved to the output array. 

The input array is contained within 
the output array. This can occur when 
converting 2-byte data to 4-byte data 
or 1130 extended-precision real data 
to System/360 double-precision real 
data. The input array data is moved 
to the top of the output array and 
conversion is done in place. 



CONVERT FROM SYSTEM/360 INTEGER TO 1130 
INTEGER (MODULE NAME IKDGDCFI) 

Charts ; NA, NB 



Function; 



Converts an array of integers in the 
System/360 standard-length or halfword 
format to an array of integers in the 
1130 integer format. 



• Converts an array of alphameric data in 
the System/360 halfword format to an 
array of alphameric data in the 1130 
one- word format. 

Entry : GDCFI, from a call in the user's 
program. 

Exit ; To the calling program. 

Input : In register 1, the address of a 
parameter list containing the following: 

+ ACuserarray") 

address of input array containing the 
data to be converted - 

+ 4 ACtemparray") 

address of output array into which the 
converted data is to be placed. 

+ 8 A ("el count") 

address of the integer that designates 
the number of elements to be con- 
verted. 



TOP INPUT 
TOP OUTPUT 



BOTTOM INPUT 
BOTTOM OUTPUT 



Type 1 
Overlap 



Input array 
coincides with 
output array. 

Movement: None 



Legend: 




TOP INPUT 



BOTTOM OUTPUT 



BOTTOM INPUT 



,. Type 2 
Overlap 



Output array 
overlaps beginning 
of input array. 

Movement: From top of 
input array to top of 
output array. 



Overlap of arrays in storage. 
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BOTTOM OUTPUT 


Move 





Bottom of input 
array overlaps top 
of output array. 

Movement: From bottom 
of input array to 
bottom of output array. 
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TOP OUTPUT 



BOTTOM OUTPUT 



BOTTOM INPUT 



Type 4 
Overlap 



Output array is 
contained within 
input array. 

Movement: After 
conversion is done 
in place, data is 
moved from input 
urray to output array. 



I I Input array storage not overlapped. 

I Output array storage not overlapped. 

Figure 14. Overlapping Arrays and Related Data Movement 



TOP OUTPUT 



TOP INPUT 



BOTTOM INPUT 



5M OUTPUT 1 



Move 



Type 5 
Overlap 



Input array is 
contained within 
output array. 

Movement: From top 
of input array to 
top of output array. 



68 



+12 ACelength") 

address of the integer that designates 
the length of each element to be 
convert€id. 

Output : An array of integers or alphameric 
data in the 1130 one-word (16-bit) format. 

Operation : After saving register contents, 
IKDGDCFI determines the number of elements 
to be convcjrted by checking the "elcount" 
argument. If the number of elements to be 
converted is zero or less, IKDGDCFI immedi- 
ately returns to the calling program. 



Next, if necessary, 
input array data so that 
at the same location, 
whether conversion is to 
or between arrays (see 
Conversion is to be Done' 



IKDGDCFI moves the 
both arrays begin 
It then determines 
be done in place 
"Determining Where 
), 



At this point, the format of the input 
data is determined by testing the value of 
the "elength" 1 argument. 

If the input data is in System/360 
halfword integer or halfword alphameric 
format, conversion merely involves reorder- 
ing the elements either between arrays as 
shown in Figure 12, or in place as shown in 
Figure 13. 

If the input data is in System/360 
standard-length format, conversion involves 
reformatting each element and then reorder- 
ing it in the output array. Integers 
outside the range -32,768 to +32,767 cannot 
be expressed in the 1130 integer formats. 
IKDGDCFI assumes that the System/360 input 
data falls within these limits, and ignores 
the 16 high- order bits of the input data 
elements. Thus, the reformatting process 
reduces each 4-byte element to a 2-byte 
element by retaining only the sign and the 
15 low-order bits. 

When reordering reformatted data between 
arrays , each reformatted element starting 
with the last is put in sequential half- 
words of the output array as shown in 
Figure 15. Thus, each halfword in the 
output array will contain the equivalent of 
an 1130 word of data. This makes it 
convenient to transmit only significant 
data to the 1130. 

When reordering reformatted data in 
place , it is accomplished in two pheises as 
shown in Figure 16. 

In phase one , the last element of the 
input array is reformatted in a register 
(step 1) . The first element of the array 
is then moved into the last location (step 
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Figure 15. IKDGDCFI Reformatting Between 
Arrays (From System/360 Integer 
to 1130 Integer) 



2) ; the reformatted last element is moved 
into the first halfword of the array (step 
3). Then, the next-to-last element is 
reformatted in the register (step 4) , the 
second and third halfwords of the array 
(containing meaningless information) are 
moved into the next-to-last word in the 
array (step 5); and the newly reformatted 
element is placed in the second halfword of 
the array (step 6). This process is con- 
tinued until the address of the next ele- 
ment to be reformatted is equal to or less 
than the address where the last reformatted 
element was stored. At this point, phase 
two begins. 



In phase two , the elements which have 
not been reformatted have already been 
reordered by phase one. Between each of 
these elements is an irrelevant word 
inserted by phase one. Phase two reformats 
the elements in the order they are located 
in the array (step 1) and moves them to the 
locations in the array following the refor- 
matted elements from phase one (step 2) . 
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Figure 16. IKDGDCFI Reformatting in Place (From System/360 Integer to 1130 Integer) 



CONVERT FROM 1130 INTEGER TO SYSTEM/360 
STANDARD-LENGTH OR HALFWORD INTEGER (MODULE 
NAME IKDGDCTI) 

Charts ; OA, OB f OC 

Function: 



either the System/360 standard- length 
of halfword format. 

Converts an array of alphameric data in 
the 1130 format to an array of alpha- 
meric data in the System/360 halfword 
format. 



• Converts an array of integers in the Entry ; GDCTI, from a call in the user's 
1130 format to an array of integers in program. 
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Exit : To the calling program. 

Input : In register 1, the address of a 
parameter list containing information as 
follows : 

+ A("temparray") 

address of input array containing the 
data to be converted. 

+ 4 A("userarray") 

address of output array into which 
converted data is to be placed. 

+ 8 ACelcount") 

address of the integer that designates 
the number of elements to be 
converted. 

+ 12 ACelength") 

address of the integer that designates 
the length of each converted element. 

Output ; An array of integers in the 
System/360 standard- length of half word for- 
mat, or an array of 16-bit alphameric data 
in the System/360 format. 

Operation ; After saving register contents, 
IKDGDCTI determines the number of elements 
to be converted by checking the "elcount" 
argument. If the number of elements to be 
converted is zero or less, IKDGDCTI immedi- 
ately returns to the calling program. 

Next, if necessary, IKDGDCTI moves the 
input array. It then determines whether 
conversion is to be done in place or 
between arrays. This is done as described 
in "Determining Where Conversion is to be 
Done" except when the bottom of the input 
array overlaps the top of the output array, 
and the output data is to be in System/360 
standard-length format. IKDGDCTI deter- 
mines the format of the output array ele- 
ments by testing the "elength" argument. 

If the bottom of the input array over- 
laps the top of the output array, and the 
output data is to be in System/360 
standard-length format, the input array is 
inverted in place and then reformatted 
between arrays as shown in Figure 17. The 
bottom element of the inverted input array 
is reformatted in a register and stored in 
the bottom word of the output array (steps 
1 and 2). Then the next-to-last element of 
the inverted input array is reformatted and 
stored in the next-to-last word of the 
output array and so on until all the 
elements have been converted. 

Except for the case described in the 
preceding paragraph, if the output data is 
to be in System/360 standard-length format, 
elements are reordered in the output array 



one at a time as they are reformatted. The 
reformatting process expands each two-byte 
input element by propagating the sign bit. 

When conversion is to be done between 
arrays and reformatting is necessary, each 
element is reformatted (starting with the 
first one in the input array) and then put 
in sequential words of the output array 
(starting at the bottom of the array) . 
This is similiar to the reformatting and 
reordering process depicted in Figure 12, 
except that two or three elements may be 
reformatted at a time before they are 
reordered in the output array. 

When the elements are to be converted in 
place, the reordering is done as shown in 
Figure 18. This procedure converts an 
array of any length in place without the 
loss of any data trhough overlapping. The 
first and second elements of the array are 
reformatted in registers and stored at the 
bottom of the output array (steps 1 through 
4). The last element of the input array is 
then reformatted and stored at the top of 
the input array (steps 5 and 6). This 
completes the first cycle. In the second 
cycle, the third and fourth elements are 
reformatted and stored in the third and 
fourth words from the bottom of the output 
array (steps 7 through 10). The next-to- 
last element of the input array is then 
reformatted and stored in the second word 
of the array (steps 11 and 12) . This 
process continues until all the elements 
have been converted (steps 13 and 14) . 

If the output data is to be in System/ 
360 half word integer or alphameric format, 
conversion merely involves reordering the 
elements in the input array. This is done 
as shown in Figure 12. When reordering in 
place, IKDGDCTI saves elements from the 
bottom of the input array instead of from 
the top. This is shown in Figure 13. 



CONVERT FROM SYSTEM/360 STANDARD- LENGTH 
REAL TO 1130 STANDARD-PRECISION REAL 
(MODULE NAME IKDGDCFF) 

Charts ; PA, PB 

Function : 

• Converts an array of real numbers in 
the System/360 standard- length format 
to an array of real numbers in the 1130 
standard- precis ion format. 

• Converts an array of alphameric data 
from the System/360 standard-length 
format to an array of alphameric data 
in the 1130 standard-precision format. 
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Figure 17. IKDGDCTI Reordering and Reformatting Between Overlapping Arrays (From 1130 
Integer to System/360 Standard-Length Integer) 



Entry : GDCFF, from a call in the user's 
program. 



Output ; An array of real numbers or alpha- 
meric data in the 1130 standard-precision 
format. 



Exi t; To the calling program. 

Input ; In register 1, the address of a 
parameter list containing the following: 

+ ACuserarray") 

address of input array containing data 
to be converted. 

+ 4 ACtemparray") 

address of output array into which the 
converted data is to be placed. 

+ 8 A("elcount") 

address of the integer that designates 
the number of elements to be 
converted. 

+12 ACtypecon") 

address of the integer that designates 
the type of conversion to be done. 



Operation : After saving register contents, 
IKDGDCFF determines the number of elements 
to be converted by checking the "elcount" 
argument. If the number of elements to be 
converted is zero or less, IKDGDCFF immedi- 
ately returns to the calling program. 

Next, if necessary, IKDGDCFF moves the 
input array. It then determines whether 
conversion is to be done in place or 
between arrays (see "Determining Where Con- 
version is to be Done"). 

At this point, IKDGDCFF determines the 
kind of conversion required by testing the 
value of the "typecon" argument. If the 
conversion involves alphameric data, con- 
version merely consists of reordering the 
elements in the array as shown in Figures 
12 and 13. 
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If the conversion involves real data, 
the elements must be reformatted as well as 
reordered. 

To reformat real data, IKDGDCFF isolates 
the sign bit, the characteristic, and the 
fraction of an input element in registers. 
It then normalizes the fraction portion and 
changes the characteristic to a binary 
excess 128 characteristic. The resulting 
fraction, characteristic, and sign bit are 
then stored in the appropriate portions of 
the output element. Conversion of the 
24-bit System/360 hexadecimal fraction to 
the 23-bit binary fraction causes the loss 
of one low-order bit when there is a one in 
the high-order bit of the System/360 frac- 
tion to start with and no normalization is 
required. 

If the reordering of the reformatted 
data is to be done in place, it is done in 
two phases as shown in Figure 19. 

In phase one , the first element of the 
input array is reformatted (step 1). Then, 
to prevent overlay, the last element of the 
input array is moved into the first loca- 
tion (step 2) , and the reformatted first 
element is stored in the last location 
(step 3) . The same sequence is followed 
with the second and next-to-last elements 
and so on until the middle of the array is 
reached. 



At this point phase two begins. 



The 

elements which remain to be converted have 
already been properly ordered by phase one. 
Phase two simply takes one element at a 
time starting at the middle of the array, 
reformats it, and stores it back in the 
same location from which it was taken 
(steps 1 and 2). 

If reordering of elements is to be done 
between arrays, data is reordered as shown 
in Figure 12. 



CONVERT FROM 1130 STANDARD-PRECISION REAL 
TO SYSTEM/360 STANDARD- LENGTH REAL (MODULE 
NAME IKDGDCTF) 

Charts : PA, PB 

Function: 



NOTE : 

Shaded areas represent the first input data handled 
and its associated output data for both cycles. 

Figure 18. IKDGDCTI Reordering and Refor- 
matting in Place (From 1130 
Integer to System/360 Standard- 
Length Integer) 



Converts an array of real numbers in 
the 1130 standard-precision format to 
an array of real numbers in the System/ 
360 standard- length format. 

Converts an array of 32-bit alphameric 
data in the 1130 format to an array of 
alphameric data in the System/360 
standard-length format. 
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Figure 19. IKDGDCFF and IKDGDCTF Reordering in Place (From System/360 Standard-Length 
Real to 1130 Standard-Precision Real and Vice Versa) 



Entry ; GDCTF, from a call in the user's 
program. 



Exi t: To the calling program. 

Input : In register 1, the address of a 
parameter list containing the following: 



+ ACtemparray" ) 

address of input array containing the 
data to be converted. 



+ 1 ACuserarray") 

address of output array into which the 
converted data is to be placed. 
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+ 8 A^elcount'*) 

address of the integer that designates 
the number of elements to be 
converted. 

+12 ACtypecon") 

address of the integer that designates 
the type of conversion to be done. 

Output : An array of real numbers or alpha- 
meric data in System/360 standard- length 
format. 

Operation : Is the same as described pre- 
viously for IKDGDCFF, except for the pro- 
cess of reformatting real data. 

To reformat real data, IKDGDCTF isolates 
the sign bit,, the characteristic, and the 
fraction of an input element in registers. 
It then changes the characteristic from a 
binary excess 128 characteristic to a hexa- 
decimal excess 64 characteristic and 
reduces the fraction proportionately. Nor- 
malization of the 23-bit 1130 binary frac- 
tion to a System/360 24-bit hexadecimal 
fraction may cause a loss of up to two 
low-order bits in each converted number. 



CONVERT FROM SYSTEM/360 DOUBLE-PRECISION 
REAL TO 1130 EXTENDED- PRECIS ION REAL 
(MODULE NAME IKDGDCFE) 

Charts : QA 

Function : Converts an array of real num- 
bers in the System/360 double-precision 
format to an array of real numbers in the 
1130 extended-precision format. 

Entry : GDCFE, from a call in the user* s 
program. 

Exit : To the calling program. 

Input: In register 1, the address of a 
parameter list containing the following: 

♦ ACuserarray") 

address of input array containing the 
data to be converted. 

+ 4 ACtemparray") 

address of output array into which 
converted data is to be placed. 

+ 8 ACelcount") 

address of the integer that designates 
the number of elements to be 
converted. 

Output : An array of real numbers in the 
1130 extended-precision format. 

Operation : After saving register contents,, 
IKDGDCFE determines the number of elements 
to be converted by checking the "elcount" 



argument. If the number of elements to be 
converted is zero or less, IKDGDCFE immedi- 
ately returns to the calling program. 

IKDGDCFE determines if conversion is to 
be done in place or between arrays (see 
"Determining Where Conversion is to be 
Done**). If it is to be done between 
arrays, IKDGDCFE reformats the elements in 
registers beginning with the last element 
of the input array, and reorders them in 
the output array. 

If reordering and reformatting are to be 
done in place, it is accomplished in two 
phases as shown in Figure 20. 

In phase one , the last element of the 
input array is reformatted in registers 
(step 1) . Then, the first element is moved 
to the last element location (step 2) to 
prevent overlaying the data in the first 
element. Next, the reformatted last ele- 
ment is stored in the first six bytes of 
the input array (step 3) . Then, the next- 
to-last element is reformatted (step 4), 
and the second element of the input array 
is moved into the next-to-last location 
(step 5) . The reformatted element is 
stored in the next six bytes after the last 
reformatted element (step 6). This process 
continues until the middle of the array is 
reached at which point phase two begins. 

In phase two , the elements left to be 
reformatted have already been reordered by 
phase one. Each unreformatted element is 
taken in turn (step 1), reformatted, and 
put into the next 6-byte location after the 
last converted element (step 2). 

When all the elements have been reor- 
dered and reformatted in the input array, 
the converted data is moved to the output 
array. Since the size of the fraction 
portions differ between the two formats, as 
many as 25 low-order bits may be lost in 
performing the conversion. 

Reformatting is done in the same way as 
described in the discussion of the IKDGDCFF 
module, except that the size of the input 
fraction and the positioning of the refor- 
matted characteristic, fraction, and sign 
bit differ for the two modules as shown in 
Appendix D. 



CONVERT FROM 1130 EXTENDED-PRECISION REAL 
TO SYSTEM/360 DOUBLE-PRECISION REAL (MODULE 
NAME IKDGDCTE) 

Charts : RA 

Function : Converts an array of real num- 
bers in the 1130 extended-precision format 
to an array of real numbers in the System/ 
360 double-precision format. 
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Entry ? 
program. 



GDCTE, from a call in the user* s 



Exit ; To the calling program. 

Input : In register 1, the address of a 
parameter list containing the following: 

+ A("teraparray") 

address of input array containing the 
data to be converted. 

+ 4 ACuserarray") 

address of output array into which the 
converted data is to be placed. 

+ 8 A("elcount") 

address of the integer that designates 
the number of elements to be 
converted. 

Output : Am array of real numbers in the 
System/360 double-precision format., 

Operation : After saving register contents, 
IKDGDCTE determines the number of elements 
to be converted by checking the "elcount" 
argument. If the number of elements to be 
converted is zero or less, IKDGDCTE immedi- 
ately returns to the calling program. 

IKDGDCTE determines if conversion is to 
be done in place or between arrays (see 
"Determining Where Conversion is to be 
Done" ), If it is to be done between 
arrays, IKDGDCTE reformats the elements in 
registers beginning with the last element 
of the input array, and reorders them in 
the output array. 



When IKDGDCTE determines-that the input 
array and the output array overlap, it may 
be necessary to move the input data before 
conversion is done. 



If the input array has a greater start- 
ing address than the output array, the 
input data is moved so that the first input 
element is at the beginning of the output 
array before conversion takes place. This 
is shown in Figure 14 (Type 2 and Type 5). 



Otherwise, each element of the input 
array, starting with the last, is refor- 
matted and stored in the output array, 
starting at the bottom. 

Reformatting is done as described in the 
discussion of the IKDGDCTF module, except 
that the size of the fraction portion of 
the output elements and the format of the 
input elements differ for the two modules. 
The formats are shown in Appendix D. 



FLOWCHARTS 

This section contains autocharts showing 
the logic flow for the System/360 con- 
version routines. The charts are ordered 
alphabetically (according to identifica- 
tion) in the sequence in which the routines 
are described. Refer to Appendix G for an 
explanation of the symbols used on the 
autocharts. 
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Chart NA. GDCFI Routine (Part 1 of 2) 



****A2 ********* 
* * 

► GDCFI ENTRY * 

*************** 



***** A3 ********** 

* * 

* SAVE REGS, * 
.X*SET SW1=0 SWP=0* 

* SW3=0 * 

* * 
***************** 



ADDRESS IN WHICH 
CONVERTED ELEMENT IS 
TO BE PLACED 



*****B3 ********** 

* FRAD=ADDR OF * 

* INPUT ARRAY * 

* TOAD=ADDR OF * 

* OUTPUT ARRAY * 

* * 
***************** 



■ELCOUNT" GT 



GDCFI 190 

****C4*** ****** 

* 4 
. ..X* RETURN * 

* * 
*************** 



GDCFI007 •*• 



GDCFI 010 



NO .* DO *. 
....*. ARRAYS .*X. 
*. OVERLAP .* 



r .* IS INPUT *« 

. *.ADDR = OUTPUT. 

4. ADDR .* 



*****E4********** 

* MOVE INPUT * 

* DATA SO THAT * 

* TOP OF INPUT * 

* ARRAY=TOP OF * 

* OUTPUT ARRAY * 
***************** 



*****P4** ******** 



* SET FRAD=T0AD * 



***************** 



*****G2 ********** 

* * 

* SET SW3=1 * 

* TOAD=ADDR OF *. 

* INPUT ARRAY * 

* * 
***************** 



GDCFI040 X 

*****G3********** 

* SET * 

* SW1=I TO * 
...X* INDICATE IN *X 

* PLACE * 

* CONVERSION * 
***************** 



♦DETERMINE LAST * 

♦ ELEMENT OF * 

♦ INPUT ARRAY AND* 

♦ ADJUST FRAD * 
***************** 



***** 
*NB * 
* Al* 



***** 
*NB * 
* H2* 
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Chart NB. GDCFI Routine (Part 2 of 2) 



***** 

*NB * 
* Al* 



* REFORMAT * 
..X*ELEMENT POINTED* 

* TO BY FRAD * 

* * 
***************** 



FRAD 
TOAD 



ADDRESS OF ELEMENT TO BE CONVERTED 



.♦CONVERSION *. NO 


.* IS PHASE 






*.(SW1 = 0).* 


*• (SW2 = 1 ). 


*. .* 


*. .* 


*. .* 


*. .* 


* YES 


* YES 



* STORE * 

* REFORMATTED * 

* ELEMENT INTO * 

* TOAD * 
***************** 



*****D1 ********** 

* * 
♦UPDATE POINTERS* 
♦FRAD = FRAD -4 * 
♦TOAD = TOAD +2 * 

♦ * 
***************** 

**** 



PHASE 

GDCFI 130 X 

♦♦♦♦♦C2********** 

* * 

* STORE * 

* REFORMATTED * 

* ELEMENT INTO * 

* TOAD * 
***************** 



♦♦***D2 ********** 

♦UPDATE POINTERS* 
*FRAD = FRAD +8 * 
*TOAD = TOAD +2 * 
* * 

*♦***♦♦***♦♦♦**♦♦ 



* EI * 

* * 
**** 



NO .* IS 
...*. CONVERSION 
♦.COMPLETE . 



**** 

* * 

* Fl * 



*****F2 ********** 

* * 
*MOVE CONVERTED * 

.X*DATA TO OUTPUT * 

* ARRAY * 

* * 
♦♦♦♦***♦♦***♦♦♦** 



GDCFI190 

X 
****Gt ********* 

* * 

* RETURN * 

* * 
*************** 



♦ ♦** 

* * 

* H2 *. 

* * 
**** 



***** 
*NB * 
* H2* 



6DCFI150 .*. 



.♦CONVERSION *. 
..X*. IN PLACE 

*. (SW1=1) .* 



*****B3 ********** 

* * 

* MOVE * 
•X*ELEMENT AT TOAD* 

* INTO FRAD * 

* * 
***************** 



*****C3********** 

* * 

* STORE * 

* REFORMATTED *. 

* ELEMENT INTO * 

* TOAD * 
*♦♦♦***♦♦♦♦♦*♦♦♦♦ 



*****C4 ********** 

* * 

.X*REDUCE FRAD BY * 

* 2 * 

* * 
***************** 



* * FRAD LT .* DOES * 

* INCREASE FRAD *X .*. FRAD = TOAD 

* BY 10 * *. .* 

* * *. .* 
******♦♦***♦♦♦♦♦* ♦. .* 



* INCREASE FRAD * 



GDCFI 080 

*****H3********** 

* MOVE ♦ 
♦ELEMENT AT FRAD* 

....X* INTO TOAD AND * 
♦REDUCE ELEMENT * 

* COUNT BY 1 * 
♦♦♦♦**♦♦**♦*♦♦♦♦* 



***************** 



*****D5********** 



***************** 



*****F 5 ********** 

* * 

* * 

* INCREASE FRAD * 

* BY 4 * 

* * 
***************** 



GDCFI 120 X 

*****G5*** ******* 

* SET * 

* SW2 = 1 TO * 
♦INDICATE END OF* 

♦ PHASE ONE ♦ 

♦ ♦ 
♦*********♦♦**♦♦* 



***************** 



*****J2 ********** 



* SAVE * 




YES .* IS ARRAY *. 


♦ELEMENT LOCATED* 




...*. FULLY .* 


* AT TOAD * 




♦.INVERTED .* 


* * 




. *. .* 


*******♦♦♦♦♦***♦* 




X *. .* 
**** * 




* 


* X 




* 


Fl * 




* 


♦ . 
♦ **♦ . 


X 
*****K2 ********** 




♦♦♦**K3*********^ 


* * 




* MOVE * 


* MOVE * 




* SAVED ELEMENT * 








* INTO TOAD * 




♦REDUCE ELEMENT * 


* * 




* COUNT BY 2 * 


***************** 




*♦♦♦♦♦**♦♦****♦** 



♦****J4********** 

* * 

* UPDATE FRAD * 
<* AND TOAD * 

* POINTERS * 

* * 
***************** 
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Chart OA. GDCTI Routine (Part 1 of 3) 



****A2********* 
t 4 

* GDCTI ENTRY * 
t * 

*************** 



FRAD = ADDR OF ELEMENT TO BE CONVERTED 



*****BZ ********** 

* * 

* SAVE REGS * 

* AND SET * 

* SWITCHES TO * 

* ZERO * 
***************** 



♦••ELCOUNT' GT 



GDCTI250 

****C3********* 

* * 
..•X* RETURN * 

* * 
*************** 



} .♦ INPUT AND *. 
.♦.OUTPUT ARRAYS. *X. 
*. OVERLAP .* 



* INPUT *. LT 
ADDR=OUTPUT .*... 

*. ADDR . * 



.* INPUT AND *. NO 
.X*. OUTPUT ARRAYS.*... 
*. OVERLAP .* 



*****E1 ********** 

* MOVE INPUT * 

* DATA SO THAT * 

* TOP OF INPUT *........ 

♦ARRAY = TOP OF * 

* OUTPUT ARRAY * 
***************** 

THIS IS SHOWN 
IN FIGURE 14. 
TYPE 3 OVERLAP. 



*****E2********** 

* SET * 

* SWITCH TO * 
<* INDICATE * 

* CONVERSION IN * 

* PLACE * 
***************** 



.♦CONVERSION *. 
. TO HALFWORD . 
*. FORMAT .* 



*****E4********** 
*SET SWITCHES TO* 
* INDICATE * 
.X* CONVERSION IN * 
♦PLACE TO S/360 * 
♦STANDARD FORMAT* 
***************** 



*****F2 ********** 

* SET LAST * 

* .= ADDR OF ♦ 
♦BOTTOM ELEMENT * 
♦OF INPUT ARRAY * 

* ♦ 
***************** 



GDCTI070 X 

*****F3 ********** 

♦MOVE INPUT DATA^ 

♦SO THAT BOTTOM * 

. ...*OF INPUT ARRAY * 

* = BOTTOM OF * 

* OUTPUT ARRAY * 
***************** ***************** 

THIS IS SHOWN . THIS IS SHOWN 

IN FIGURE 14. . IN FIGURE 14. 

TYPE 2 OVERLAP. .. TYPE 2 OVERLAP. 



*****F4********** 

* ♦ 

* MOVE INPUT ♦ 
♦DATA TO OUTPUT ♦ 

* ARRAY * 



♦ H2 *.X. 

♦ * 
♦ *** 

GDCTI ISO X 

*****H2 ********** 

♦ ♦ 
♦COMPUTE ADDR OF+ 
♦LAST ELEMENT IN+ 

♦ OUTPUT ARRAY ♦ 

♦ * 
***************** 



.♦CONVERSION *. h 
. TO STANDARD .*. 
*. LENGTH .* 



GDCTI180 



.♦CONVERSION 
.X+.TO BE DONE I 
♦. PLACE 



GDCTI 190 

*****J4********** 

* REORDER * 

* ELEMENTS IN ♦ 
. ..X* PLACE (SE& * 

* FIGURE 13) * 

* * 
***************** 



**♦♦* 
*OB * 
* Al* 



♦♦♦♦*K3 ********** 

* REORDER ♦ 

* ELEMENTS * 
♦BETWEEN ARRAYS ♦. 
♦(SEE FIGURE 12)* 

* * 
***************** 



.♦CONVERSION ♦. YES 
.X*. TO HALFWORD .*.... 
*. FORMAT .♦ 



****K5 ********* 

* * 

* RETURN * 

* * 
*************** 



***** 
*OC * 
* B3* 
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Chart OB. GDCTI Routine (Part 2 of 3) 



***** 

*QB * 
* Al* 



* REFORMAT * 
♦ELEMENT POINTED*X. 

* TO BY FRAD * 

* ( EL 1 ) * 
***************** 



THIS CHART SHOWS REFORMATTING AND INVERSION OF ARRAYS 
TO SYSTEM/360 STANDARD LENGTH FORMAT EITHER 
IN PLACE OR BETWEEN ARRAYS. 



* REFORMAT * 
<* ELEMENT AT * 

* 2(FRAD) , CALL * 

* IT EL2 * 
***************** 



*****C1 ********** 

* * 

* STORE * 

* REFORMATTED * 
♦ELEMENT AT TOAD* 

* * 
***************** 



****D1 ********* 
» * 

* RETURN * 

* * 
*************** 



.* IS *. YES 
*. REORDERING IN.*.... 
*. PLACE .* 



GDCTI225 



*****C3********** 

* * 

* REFORMAT * 
,X*ELEMENT POINTED*. 

* TO BY LAST. * 

* CALL IT EL3 * 
***************** 



*****C4********** 



***************** 



*****C5********** 

* * 

* SET LAST = * 
. X*LAST-2, ELCOUNT* 

* = ELCOUNT-1 * 

* * 
***************** 



*****D3 ********** 

* * 

* REFORMAT * 
** ELEMENT AT * 

* 4 (FRAD), CALL * 

* IT EL3 * 
***************** 



*****E3********** 



*****E4********** 



*****E5**** ****** 



***************** 



*****F2 ********** 

* * 

* SET * 

* ELCOUNT = * 

* ELCOUNT-2 * 

* * 
***************** 



***************** 



***************** 



***************** 



*****F5 ********** 



***************** 



****G1 ********* 

* RETURN * 

*************** 



***************** 



*****J2********** 



*****G3********** 

* * 

* SET FRAD * 
.X*= FRAD +4, TOAD* 

* = TOAD-4 * 

* * 
***************** 



*****H3********** 



***************** 



*****J3********** 



*****GS ********** 



***************** 



****HS ********* 
» 4 

► RETURN * 
¥ * 

*************** 



***************** 



***************** 
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Chart OC. GDCTI Routine (Part 3 of 3) 



THIS CHART SHOWS REFORMATTING AND INVERSION OF 
ARRAYS TO SYSTEM/360 STANDARD LENGTH FORMAT 
WHEN THE INPUT ARRAY ADDRESS IS LESS THAN 
THE OUTPUT ARRAY ADDRESS AND THE ARRAYS OVERLAP. 



***** 
*OC * 
* B3* 



*****B3 ********** 

* SET FRAD * 

* = ADDR OF * 
♦BOTTOM ELEMENT * 
*OF INPUT ARRAY * 

* * 
***************** 



*****C3 ********** 

* SET TOAD * 

* = ADDR OF * 
♦BOTTOM ELEMENT * 
♦OF OUTPUT ARRAY* 

* * 
***************** 



* REFORMAT * 
♦ELEMENT POINTED* 

* TO BY FRAD * 

* * 
***************** 



*****E3 ********** 

* * 

* STORE * 

* REFORMATTED * 
♦ELEMENT AT TOAD* 

* * 
***************** 



SEE FIGURE 17. 



.* ARE *. 
.* ALL 
ELEMENTS 
♦.CONVERTED. 



♦UPDATE POINTERS* 
•X* FRAD = FRAD-2 ♦ 

* TOAD = TOAD-4 * 

* * 
***************** 



****G3 ********* 

► * 

► RETURN * 

► * 
***♦***♦♦♦**•** 
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Chart PA. GDCFF and GDCTF Routines (Part 1 of 2) 



****A2 ********* 

* GDCFF * 
*0R GDCTF ENTRY * 

* * 
*************** 



ADDRESS IN WHICH 
CONVERTED ELEMENT 
IS TO BE PLACED 



***** A3 ********** 

* * 

* SAVE * 
.X*REGS. SET SW1=0* 

* SW2=0 * 

* * 
***************** 



*****B3 ********** 

* SET FRAD = * 

* ADDR OF INPUT * 

* ARRAY, SET * 

* TOAD=ADDR OF * 

* OUTPUT ARRAY * 
***************** 



GDCFF200 
GDCTF200 

****C4*** ****** 



*. 'ELCOUNT' GT 



*************** 



CONVERSION 

BETWEEN 

ARRAYS 



r .* IS INPUT *. 

. *.ADDR = OUTPUT. 

*. ADDR .* 



CONVERSION 

BETWEEN 

ARRAYS 



*****E2 ********** 
*MOVE INPUT DATA* 
*SO THAT BOTTOM * 
*OF INPUT ARRAY * 

* = BOTTOM OF * 

* OUTPUT ARRAY * 
***************** 



GDCFF 070 
GDCTF 070 

*****F2 ********** 

* * 

* SET * 

* FRAD=ADDR OF *. 

* OUTPUT ARRAY * 

* * 
***************** 



GDCFI-080 
GDCTF080 

*****F3********** 

* SET * 

* SW1=I TO * 
...X* INDICATE IN *X 

* PLACE * 

* CONVERSION * 
***************** 



*****E4********** 

* MOVE INPUT * 

* ARRAY DATA SO * 

* THAT TOP OF * 

* INPUT ARRAY=TOP* 
*OF OUTPUT ARRAY* 
***************** 



*****F4********** 

* * 

* SET * 
.* FRAD=ADDR OF * 

* OUTPUT ARRAY * 

* * 
***************** 



GDCFF090 
GDCTF090 

*****G3********** 

* * 

* SET T0AD=ADDR * 

* OF BOTTOM OF * 

* OUTPUT ARRAY * 

* * 
***************** 



*. CONVERSION TO.* 


. . .. 


♦ .REAL DATA 


,* 






*. .* 








*. .* 






X 


* YES 






***** 


• 






*PB * 
* HI* 


X 






* * 


***** 






* 


*PB * 








* Al* 
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Chart PB. GDCFF and GDCTF Routines (Part 2 of 2) 



***** 

*PB * 
* Al* 



GDCFF100 
GDOTF1O0 X 

***** A 1 ********** 

* * 

* REFORMAT * 
•X*ELEMENT POINTED* 

* TO BY FRAD * 

* * 
***************** 



.♦CONVERSION 
IN PLACE 
*. (SW1=1) . 



.* IS PHASE *• 

• X*.ONE COMPLETE . 

*. (SW2=1) .* 



GDCFF160 
GDCTF160 

*****C1 ********** 

* * 

* STORE * 

* REFORMATTED * 

* ELEMENT INTO * 

* TOAD * 
***************** 



*****D1 ********** 

* * 
♦UPDATE POINTERS* 

* FRAD = FRAD+4 * 

* TOAD = TOAD-4 * 

* * 
***************** 



GDCFFI50 
GDCTF150 

*****C2 ********** 

* * 

* STORE * 

* REFORMATTED * 

* ELEMENT INTO * 

* FRAD * 
***************** 



*****D2 ********** 

* * 

* UPDATE * 
♦POINTER FRAD = * 

* FRAD-4 * 

* * 
***************** 



*****B3 ********** 

* * 

* MOVE * 
. X*ELEMENT AT TOAO* 

* INTO FRAD * 

* * 
***************** 



*****C3 ********** 

* * 

* STORE * 

* REFORMATTED * 

* ELEMENT INTO * 

* TOAD * 
***************** 



*****D3********** 

* * 

* UPDATE * 
♦POINTER TOAD = * 

* TOAD-4 * 

* * 
***************** 



****F1 ********* 

* * 

* RETURN ■» 

* * 
*************** 



*****E4********** 

* * 

* UPDATE * 
.X*POINTER FRAD = * 

* FRAD+4 * 

* * 
***************** 



GDCFF140 
GDCTF140 

*****F3********** 

* SET ♦ 

* SW2 = I TO * 
....♦INDICATE END OF*X. 
K * PHASE ONE * 



FRAD = TOAD 



***************** 



***** 
*PB * 
* HI* 



.♦CONVERSION 
IN PLACE 
*. (SW1=1) . 



GDCFF 1 90 
GDCTF J 90 

*****H2 ********** 

* * 

* MOVE * 

. .X*ELEMENT AT FRAD*. 

* INTO TOAD * 

* * 
***************** 



*****G3 ********** 

* UPDATE * 

* POINTERS * 
. * FRAD=FRAD+4 * 

* T0AD=T0AD-4 * 

* * 
***************** 



* 


ARE * 


. 






ALL 


* 


YES 


ELEMENTS 




*... 




MOVED 


.* 





*****J t********** 

* * 

* SAVE * 
♦ELEMENT LOCATED* 

* AT TOAD * 

* * 
***************** 



*****J3********** 

* UPOATE * 

* POINTERS * 

* FRAD=FRAD+4 * 
+ T0AD=T0AD-4 ♦ 

* * 
***************** 



*****K1 ********** 

* * 

* MOVE * 
♦ELEMENT AT FRAD*. 

♦ INTO TOAD ♦ 

♦ ♦ 
****♦**♦♦♦♦*****• 



*****K2 ********** 

* MOVE * 

* SAVED ELEMENT * 

. X*TO FRAD. REDUCE*. 
*'ELCOUNT> BY 2 * 

* * 
***************** 



. X*. # ELCOUNT' LT 



****K4********* 
t * 

* RETURN * 
► * 

*************** 
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Chart QA- GDCFE Routine 



•***A1 ********* 

* * 

* GDCFE ENTRY * 

* * 
*************** 



*****Bl ********** 
♦SAVE REGISTERS * 

* FRAD=ADDR OF * 

* INPUT ARRAY * 

* TOAD=ADDR OF * 

* OUTPUT ARRAY * 
***************** 



TOAD = ADDRESS IN WHICH CONVERTED 
ELEMENT IS TO BE PLACED 



TRANS= ADDRESS OF ELEMENT 

TO BE MOVED TO PREVENT 
OVERLAY 



•ELCOUNT' GT .*. 



GDCFE 120 

****C2********* 

* * 
...X* RETURN * 

* * 
*************** 



•*IS THIS*. 
» THE ONLY *. YES 

ELEMENT TO .*... 
*. CONVERT .* 



*****83********** 

* RESTORE * 
♦PARAMETERS AND * 

* SET SWITCH TO * 
♦INDICATE PHASE * 

* TWO BEGUN * 
***************** 



*****C3********** 

* * 

* COMPUTE * 
♦PHASE 2 ELEMENT* 

* COUNT * 



UPDATE 

POINTER 

FRAD=FRAD+8 



***************** ***************** 

.BLOCK C3 RESULT IS 
•THE NUMBER OF ELEMENTS 
•YET TO BE CONVERTED 



*****E1 ********** 

* * 

* REFORMAT * 
♦ELEMENT POINTED* 

* TO BY FRAD * 

* * 
***************** 



*****F 1********** 

* * 

* STORE * 

* REFORMATTED * 
♦ELEMENT AT TOAD* 

* * 
*♦♦*•**♦♦****•*•* 



♦****G I ********** 

* * 

* UPDATE FRAD * 

* AND TOAD * 

* POINTERS * 

* * 
♦♦*♦♦♦♦*****•**** 



*****E2********** 

* SET * 
*TRANS=TOAD=TOP * 
♦OF INPUT ARRAY.* 
*FRAD=BOTTOM OF * 

* INPUT ARRAY * 
***************** 



*****D3 ********** 

* * 
*FRAD = ADDR OF * 

* FIRST * 

* UNCONVERTED * 

* ELEMENT * 
***************** 



*****E3********** 

* TOAD * 

* = ADDR TO * 

* RECEIVE NEXT * 

* CONVERTED * 

* ELEMENT * 
***************** 



.* ARE *. 

ALL 

ELEMENTS 

•CONVERTED. 



**** 

* * 
.X* G2 * 

* * 
**** 



*****F2********** 
♦COMPUTE NUMBER * 
*OF ELEMENTS TO * 
*BE REFORMATTED * 

* BY PHASE ONE * 

* <ELC0UNT/2) * 
***************** 

**** 



**** 
GDCFE020 X 

•****G2********** 

* * 

* REFORMAT * 
♦ELEMENT POINTED* 

* TO BY FRAD * 

* * 
***************** 



.*DOES INPUT *. 
•ADDR = OUTPUT.* 
*. ADDR .* 



*****FS********** 

* * 
♦MOVE CONVERTED ♦ 

. X*DATA TO OUTPUT * 

* ARRAY * 

* • 
***************** 



****G4********* 

* * 

* RETURN * 

* * 
*************** 



HAS *. 
PHASE TWO . 
. BEGUN .* 



*****H3********** 

* MOVE * 

* ELEMENT AT * 
•X*TRANS INTO FRAD* 

* TO SAVE FROM * 

* OVERLAY * 
***************** 



****j I********* 
» * 

» RETURN * 

► * 

*************** 



* STORE * 

* REFORMATTED * 
♦ELEMENT AT TOAD* 

* * 
♦♦A************** 



**** 

* * 

* B3 * 

* * 
**** 



IS THIS 
THE ONLY 
. ELEMENT 



*****K3********** 

* * 

* UPDATE TOAD, * 
,X*FRAD, AND TRANS*. 

* POINTERS * 

* * 
***************** 



.* HAS 

PHASE TWO 
*. BEGUN . 



**** 

* * 

* G2 t 

* 4 
**** 
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Chart RA. GDCTE Routine 



+ *** A3 ********* 
k * 

* GDCTE ENTRY < 

* * 
*************** 



*****B3 ********** 
*SAVE REGISTERS * 

* FRAD=ADDR OF * 

* INPUT ARRAY * 

* TOAD=ADDR OF * 

* OUTPUT ARRAY * 
***************** 



■ EUCOUNT' GT .* 



GDCTE160 

****C4********* 

* * 
. ..X* RETURN * 

* * 
*************** 



*****D2********** 



***************** 



*****E2 ********** 

* * 

* STORE * 

* REFORMATTED * 
♦ELEMENT AT TOAD* 

* * 
***************** 



E3 *. 

.* * 

. * IS INPUT 

ADDR GT 

*. OUTPUT 

*.ADDR .* 

*. .* 



*****E4********** 

* * 
*MOVE INPUT DATA* 

<* TO TOP OF * 

* OUTPUT ARRAY * 

* * 
***************** 



*****F2********** 

* * 

* UPDATE FRAD * 

* AND TOAD * 

* POINTERS * 

* * 
***************** 



*****F3********** 
+ * 

* REORDER * 

* INPUT ELEMENTS * 

* IN PLACE * 
■» * 
***************** 



*****G3********** 

* SET FRAD=ADDR * 

* OF LAST INPUT * 
*ELEMENTt TOAD =* 
+ BOTTOM OF * 

* OUTPUT ARRAY * 
***************** 



****H2********* 

* * 

* RETURN * 

* * 
*************** 



*****H3********** 

* * 

* REFORMAT * 
•ELEMENT POINTED* 

* TO BY FRAD * 

* * 
***************** 



*****J3********** 

* * 

* STORE * 

* REFORMATTED * 
•ELEMENT IN TOAD* 

* * 
***************** 



*****K3 ********** 

* * 
♦UPDATE POINTERS* 

* FRAD = FRAD-6 *. 

* TOAD = TOAD-8 * 

* * 
***************** 



****K5********* 

* * 

* RETURN * 

* * 
*************** 
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APPENDIX A: CONTROL BLOCK AND TABLE FORMATS 



This appendix illustrates and describes 
the storage areas which provide a means of 
communication among the PTOP data transmis- 
sion routines and between the systems. The 
areas described are: 



1130 telecommunications 
(GTCOM). 



control block 



• System/360 telecommunications control 
block (GTCB). 

• System/360 save area used when the 
asynchronous routine is in control. 



• System/360 unit 
(module IKDUATBL) . 



assignment table 



Each description includes information 

about establishment of the block, general 

use, and the time at which the block is 
released. 

The format of each block is illustrated, 
followed by detailed descriptions of the 
fields within the block. An upright arrow 
within the field indicates that the con- 
tents of the field is an address. Field 
displacements (in decimal and hexadecimal) 
are shown at the left side of each illus- 
tration. These displacements indicate the 
location of the named field within the 
block in terms of the number of words in 
1130 or the number of bytes in System/360. 
The same displacements are shown in paren- 
theses in the field descriptions. 

Following the block descriptions in this 
appendix are tables summarizing the pro- 
cessing of information in the GTCOM and the 
GTCB (see "Processing Information in Con- 
trol Blocks"). 



1130 Telecommunications Control Block 
(GTCOM,): 

The GTCOM serves as a communication area 
for all the 1130 data transmission rou- 
tines,. It resides within the GTP01 routine 
starting four words beyond the routine 
entry point. 

Pointers, indicators, and flags in the 
GTCOM are set by all 1130 data transmission 
routines except GTCLT. Certain fields in 
the GTCOM are cleared by the GTEND routine. 

Figure 21 shows the format of the GTCOM 
after all fields have been initialized. 



Dec. 

+ 

+ 1 

+ 2 

+ 3 

+ 4 

+ 5 

+ 6 

+ 7 

+ 8 
+15 

+16 

+17 

+18 

+19 

+ 20 

+ 21 

+22 

+ 23 

+24 

+25 

+26 
+27 

+ 28 

+29 

+30 

+31 

+ 32 
+ 39 

+ 40 

+ 41 

+ 42 



Hex. <- 

r — 



1 
2 
3 
4 
5 
6 
7 



8 

F 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 

1A 

IB 

1C 

ID 

IE 

IF 

20 
27 

28 

29 

2A 



h~ 



h~ 



■1 Word (16 Bits) 
BITS 



--> 
— i 



BITS2 



LSTRD 



LSTWT 



RDCNT 



WTCNT 



RDPTR 



WTPTR 



SAVST 

(8 Words) 



RDBUF 



WTBUF 



ASYNC 



PSWRD 



RDSEQ 



WTSEQ 



DSREF 



ASPRM 



ASDAT 



NSI 



AQS 

(2 Words) 



XR1S 
XR2S 



STS 



OSCNT 



SYSBF 

(8 Words) 



Reserved 
Reserved 



Reserved 



\ 



1 

t 



•H 



H 
-H 
H 
■H 
H 



-H 



1 

1 

— ^ 



-H 
-H 

— I 



Figure 21. GTCOM Format 
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Table 1. Contents of BITS Field 

I T 



j Bit I Name | 
t + + . 



Meaning of Contents When Bit is Set to One (On) 





1 

h- 

2 

I— 

3 

4-5 



-+ 



OSRED 
.J 

ASPND 



RTBSY 



An input/output request (other than a system read request) is active 
or pending. 



System/360 user ready-to-read message has been received. 

A request for the 1130 user's asynchronous routine is pending. 






■H 



OKNIT 



The 1130 PTOP transmission routines are initialized. 



-H- 



ERRST 



Indicates the error status of the active message, as follows: 

No errors 

1 Unrecoverable error (s) 

2 Incorrect length 

3 Timeout 



y 

6 

7 



ASACT 
j J. 

FNCTN 



System/360 asynchronous routine is active. 



Indicates the currently active function, as follows: 

Transmit Initial, or Receive Initial 

1 Transmit End, or Receive Continue/Repeat 



■H 



8-10 



MSGTP 



Identifies the message currently being transmitted, as follows: 

Initialization 

1 Terminate communication link 

2 Asynchronous routine request 

3 Asynchronous routine ended 

4 Data message 

5 Ready- to- read message 

6 User read 

7 System read 



-H 



n 

12 



BIT11 

+ + 

BIT12 



Mainline program transmission status should be saved by GTP01 before 
processing the next operation. 



If one, the 1130 asynchronous routine is active, 
asynchronous routine is inactive. 



If zero, the 1130 



| 13-15 

L 



j Reserved. 



BITS (+0, /00) 

contains the flags and switches used 
by the 1130 data transmitted routines. 
Table 1 gives the name and the con- 
tents of each bit in the BITS field. 

BITS2 (+1, /01) 

contains bits used to queue PTOP 
requests. The bits are listed in 
Table 2 in the order of priority for 
honoring the requests. 

LSTRD (+2, /02) 

contains integer codes that indicate 
(1) the type of data and (2) the 
status of the last read request speci- 
fied by the user. The meanings of the 
codes are defined in Table 3. 

LSTWT (+3, /03) 

contains integer codes that indicate 
(1) the data type and (2) the status 
of the last write request specified by 



Table 2. Contents of BITS2 Field 

r t 1 

Bit | Meaning of Contents When Bit is On | 



0-8 

9 

10 



11 



Initialization message is pending. | 
4__ ,j 

Terminate communication link mes- | 
sage is pending. j 

4 



12 



I— ■ 

13 
Y 

14 

h 

15 



Reserved. 



■H 

! 

-H 



Asynchronous routine request mes- 
sage is pending. 

■H 



Asynchronous routine ended message 
is pending. 



Data message is pending. 



+— 



Ready-to-read message is pending. 

User read request is pending. 

j 
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the user. The meanings of the 
are defined in Table 3. 



codes 



RDCNT ( + 4, /04) 

contains the number of 1130 words to 
be transmitted (word count) from the 
last 1130 ready-to-read message. 

WTCNT (+5, /05) 

contains the word count from the last 
1130 data message. 

RDPTR (+6, /06) 

contains the address of the first 
element (placed in the highest 
storage location) in the user's read 
array. 

WTPTR (+7, /07) 

contains the address of the first 
element (placed in the highest 
storage location) in the user's write 
array. 

SAVST (+8, /08) 

is an 8-word save area into which the 
transmission status of the mciinline 
program is placed before execution of 
the asynchronous routine. The value 
of OSCNT is placed in the first word 
of this save area if OSRED is set to 
one when the 1130 asynchronous rou- 
tine is requested. Otherwise, the 
first word contains zero. The three 
low-order bits (13, 14, and 15) in 
BITS2 are saved in the second word, 
and the six words from locations 
GTCOM+2 through GTCOM+7 are placed in 
the remciinder of this save area. 



RDBUF (+16, /10) 

contains the address of the user- 
specified read buffer. 

WTBUF (+17, /ll) 

contains the address of the user- 
specified write buffer. 

ASYNC (+18, /12) 

contains the address of the user's 
asynchronous routine . 

PSWRD (+19, /13) 

contains the address of the password. 

RDSEQ (+20, /14) 

contains the sequence number of the 
next message to be read. 



WTSEQ (+21, /15) 

contains the sequence number 
next message to be written. 



of the 



DSREF (+22, /16) 

contains the data set reference num- 
ber passed by the System/360. 

ASPRM (+23, /17) 

contains the one-word integer data 
passed from the System/360 for the 
1130 user's asynchronous routine. 

ASDAT (+24,, /18) 

contains the one-word integer data 
passed by the 1130 user's program for 
the System/360 asynchronous routine. 

NSI (+25, /19) 

is a save area used to store the 
address of the next sequential 



Table 3. Contents of LSTRD and LSTWT Fields 





specified 



t ransmi s s l on 



A code that defines the type 
request, as follows: 

1 One-word integer 

2 Standard-precision integer (2 words, only first word used) 

3 Extended-precision integer (3 words, only first word used) 

4 Standard- precision real (2 words) 

5 Extended-precision real (3 words) 
Note ; Alphameric data can be placed in any of the FORTRAN data types; it is 
treated as data of that format. 
_ ., 

For LSTWT, if on, this bit indicates that incorrect data length was specified. 
For LSTRD, this bit should never be on. 
., 

A code that indicates the status of the last operation , as follows: 

1 Operation successfully completed 

2 Operation not started 

3 Operation started, but not complete 

4 Both systems are in ready-to-read status 

5 System/360 has called GTEND 

6 Transmission line error 

7 Incorrect length 
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instruction in the program that 
called the data transmission routine 
when the 1130 asynchronous routine is 
invoked. 

AQS (+26, /1A) 

is a two-word save area used to store 
the contents of the accumulator and 
the accumulator extension when an 
1130 data transmission routine 
invokes the 1130 asynchronous 
routine. 

XR1S (+28, /1C) 

is a save area used to store the 
contents of Index Register 1 when an 
1130 data transmission routine 
invokes the 1130 asynchronous 
routine . 

XR2S (+29, /ID) 

is a save area used to store the 
contents of Index Register 2 when an 
1130 data transmission routine 
invokes the 1130 asynchronous 
routine . 

STS (+30, /IE) 

is a save area used to store the 
status of the carry and overflow 
indicators when an 1130 data trans- 
mission routine invokes the 1130 
asynchronous routine. 

OSCNT (+31, /IF) 

contains the data count obtained from 
the last System/360 ready-to-read 
message. 

SYSBF ( + 32,, /20) 

is an 8-word field which serves as 
the system message buffer. 

System/360 Telecommunications Control 
Block (GTCB) 

The GTCB furnishes the means of com- 
munication and control among the System/ 
360 data transmission routines. It is 
created by the IKDGTNIT routine each time 
the routine is invoked with a different 
"datasetref" argument. The address of the 
GTCB is placed in the unit assignment 
table at a location correlated with the 
data set reference number specified in the 
call that invoked the IKDGTNIT routine. 
As a cross reference, the address of the 
unit assignment table and the data set 
reference number are then placed in the 
GTCB. 

The GTCB is used by all the System/360 
data transmission routines, but not by the 
data conversion routines. Once estab- 
lished, it remains in storage until 
released by a System/360 call to GTEND in 
the user's mainline program which speci- 
fies the associated data set reference 



number. This call invokes the IKDGTEND 
routine, which frees the GTCB. 

Figure 22 shows the format of the GTCB 
after the fields have been initialized. 



Dec. Hex.'<- 



+ 
+ 4 
+ 8 
+ 12 
+ 16 
+ 20 
+ 24 
+ 28 
+ 32 
+ 36 
+ 40 
+ 44 
+ 48 
+ 52 
+ 56 
+ 60 
+ 64 

+160 




4 
8 
C 
10 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 



r T" 

GTCDSRNO J 
_JL- 



— 4 Bytes 

GTCUATBL 
GTCWRBUF 
GTCRDBUF 
GTCASYNC 
GTCPASS 
GTCSVINF 
GTCECB 
GTCRDARY 
GTCWRARY 
GTCFLAGS 



— > 



-H 



T ' 

GTCLSTRD | GTCRDLNG 

GTCLSTWR | GTCWRLNG 
+ 

GTCLNGSV j GTCPRMSV 

GTCRDSEQ | GTCWRSEQ 

GTCRDSIZ | GTCWRSIZ 
J X 

Reserved | 

"^ GTCDCB 

r 



+ 224 


E0 


+ 228 


E4 


+ 232 


E8 


+272 


110 


+292 


124 


+312 


138 


+384 


180 



A0^ 

T 
h- 
I 

f- 
I 
h~ 

X 

T 
T 

X~ 

T 
X~ 

T 

L 



GTCDCB 
(96 Bytes) 



GTCPDECB 
(64 Bytes) 



GTCDSRAD 
GTCSTART 



Reserved 
(40 Bytes) 



GTCPTPRD 
(20 Bytes) 



GTCPTPWR 
(20 Bytes) 



T 

■H 

I 
-H 

I 
-H 

X 

-x 

-A 



GTCSVAR 
(72 Bytes) 



GTCIRBSV 
(72 Bytes) 



-x 
x 

T 
_j 



+456 1C8 

Figure 22. GTCB Format 
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GTCDSRNO (+0 f X*00*) 

is a one-byte field that contains the 
data set reference number associated 
with this GTCB. Its value ranges 
from 1 through 99. 



GTCUATBL (+1, X'01') 

is a three- byte field that contains 
the address of the unit assignment 
table. 



GTCWRBUF ( + 4, X , 04M 
is the address 
buffer. 

GTCRDBUF (+8, X'OS 1 ) 

is the ciddress of 
buffer. 



of the user's write 



the user' 



read 



GTCASYNC (+12, X*OC') 

is the address of the user-specified 
asynchronous routine. 

GTCPASS (+16, X*10M 

is the address of the password. 

GTCSVINF (+20, X'lH') 

is the address of the special save 
area used for saving the transmission 
status of the mainline program during 
asynchronous routine processing. 

GTCECB (+24, X* 18") 

is an event control block for inter- 
nal use by the PTOP program. 

GTCRDARY (+28, X'lC') 

is the address of the array to which 
the user- specified data is to be 
moved after it is read into the read 
buffer. 

GTCWRARY (+32, X»20') 

is the address of the array from 
which the user-specified data is to 
be written. 

GTCFLAGS ( + 36, X*24*) 

contains flags that are used by the 
System/360 data transmission rou- 
tines. These one- bit flags are 
listed and described in Table 4. 

GTCLSTRD (+40, X^S*) 

is the status of the last read opera- 
tion requested by the user. Its 
value ranges from 1 through 8, with 
the following meanings: 



1 — 

2 — 

3 ~ 

4 — 



successfully 



Operation 

pleted. 

Operation not started. 

Operation started 

completed. 

Both systems are in 

read status. 



but 



com- 



not 



5 — The 1130 program has called 

GTEND. 

6 — Operation unsuccessful due to 

transmission line error. 

7 — Operation completed with incor- 

rect length indicated. 

8 — Operation unsuccessful due to 

condition that requires operator 
intervention. 



If the high order bit in GTCLSTRD is 
on, the requested operation is still 
pending. 

GTCRDLNG (+42, X" 2A* ) 

is the number of bytes of data the 
user expects to read from the 1130 as 
specified in the call to GTRED. 

GTCLSTWR (+44, X* 2C* ) 

is the status of the last write data 
operation that was requested by the 
user. Its value ranges from 1 
through 8, with the same meanings as 
defined for GTCLSTRD. If the high 
order bit in GTCLSTWR is on, the 
requested operation is still pending. 

GTCWRLNG ( + 46, X^E*) 

is the number of bytes of data the 
user wishes to write to the 1130 as 
specified in the call to GTWRT, 

GTCLNGSV (+48, X^OM 

is the data length specified in the 
ready-to-read message that was last 
received from the 1130 program. 

GTCPRMSV (+50, X , 32*) 

is the parameter that the System/360 
user specified when requesting the 
1130 asynchronous routine. 



GTCRDSEQ (+52, X' 34') 

contains the sequence number 
next message to be read. 



of the 



ready- to- 



GTCWRSEQ ( + 54, X^e') 

contains the sequence number of the 
next message to be transmitted to the 
1130 program. 

GTCRDSIZ (+56, X' 3S W ) 

contains the value specified by the 
user for the "readbufsize" argument 
in his call to the GTNIT subroutine. 

GTCWRSIZ (+58, X* 3A* ) 

contains the value specified by the 
user for the "writebuf size" argument 
in his call to the GTNIT subroutine. 

GTCDCB ( + 64, X*40*) 

is the BTAM data control block for 
the communication line group estab- 
lished for the 1130 and System/360 
line connection. 
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Table 4. Contents of GTCFLAGS Field (Part 1 of 2) 



r~ 

| Byte 










FLGS1 



J. .j 1 | 









1 + + __ 












1 
FI.GS2 



(. + 1. + __. 



fr + + +- 

X'UO'fPTPRTI |Indicates current operation is Read Initial. 

+ + _ „ 

X^O'IPTPRTT | Indicates current operation is Read Continue. 
|. ^ + + . 

X* 10* | PTPTIXR | Indicates current operation is Write Initial Transparent with 
j Reset. 



Bit 



Value [Name j 



Meaning 



X'SO^OKNIT jSystem/360 is initialized successfully. 



X f 40 f 



X^O" 



X'10" 



x^os* 



X'04* 



X*02» 



X»01' 



X^O* 



X'00» 



RTRD 



| 1130 user is in ready-to-read status. 



-H 



ASYNC j System/360 user asynchronous routine is scheduled. 



ASYNIT | System/360 user asynchronous routine is requested. 



A1130 | System/360 user requested the 1130 asynchronous routine. 






CANCEL | System/360 user called GTWRT to terminate the 1130 program. 



SVRTRD | 1130 mainline ready-to- read request saved. 



GTEND | 1130 user has called GTEND. 






USEROP (The current input/output operation is for the System/360 user. 






PTOPOP | The current input/output operation is for the PTOP system. 



X'OS* 



I- + + 



V— 
6 

j. 

7 



j. 

X , 02 t 

-i j- 



PTPWTR j Indicates current operation is Write Reset. 

RTPAS j Indicates current operation is Read Continue for the password 
| (compares satisfactorily). 






h 

2 
FLGS3 



+ + 



X'Ol* 
X"80' 



j. + + 



X'40* 
X'20* 



ERRNIT1 | Error in initialization, negative code (passwords do not 
jmatch) . 

ERRNIT2 j Error in initialization, positive code (unable to communicate 

(with 1130). 
.| 

WTEND | System/360 mainline program called GTEND, and IKDGTEND is in 
j wait state. 

WTCLT | System/360 program called GTCLT and IKDGTCLT is in wait state. 












WTASY | System/360 asynchronous routine called GTEND, and IKDGTEND is 
jin wait state. 



X'10' 
X'OB 1 



I- -I + 



ENDMSG j Write contention found when terminate communication link 
j message is active. 

ASYEND | Write contention found when asynchronous routine ended message 
jis active. 



H 






X*0U J 
X'02* 
X'Ol* 



h + + 



|. +-_ + 






TENTIONJ Write contention condition is pending. 

COMMN j 1130 to System/360 communication was made. 

WTRD j IKDGTCLT is waiting for a read operation if bit 7 is set to 
j one. (IKDGTCLT is waiting for a write operation if bit 7 is 
| zero. ) 



-H 
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Table 4. Contents of GTCFLAGS Field (Part 2 of 2) 



r t t t 

J Byte | Bit | Value | Name 



Meaning 



3 
FLGS4 



JX'80' 



— + 1- 

1 jx^o* 



CANCTD j Write contention found when program termination request 
| message is active. 



ASYCTD j Write contention found when asynchronous routine request 
| message to the 1130 is active. 



2 IX^O'" 



RTRCTD | Write contention found when System/360 user ready-to-read 
| message is active. 



3 IX'IO* 
I 

— + 

4 ix^s^ 
.__-! 

5 |X , 04' 

--+ 

6 jx , 02 i 

— + 

7 IX'OI 1 



DATATD jwrite contention found when System/360 user data message is 
j active. 



CANPND 
ASYPND 
RTRPND 
SHORT 



JThe program termination request message is pending. 
_ + _ 

| The asynchronous routine request message is pending. 



JThe ready- to- read message is pending. 
. + . 

| User data to be read is less than four bytes. 



— I 
-H 



GTCPDECB (+160, X'AO*) 

is the BTAM data event control block 
that is built to control input/output 
operations. 



Note : complete descriptions of the format 
and contents of the BTAM data control block 
and the BTAM data event control block are 
contained in the following publications: 

IBM Sys.tem/360 Operating System : 

System Control Blocks , Form C28-6628 

Basic Telecommunications Access Method , 
Form C30-2004 

Basic Telecommunications Access Method 
Program Logic Manual , Form Y30-2001 

GTCDSRAD (+224, X'EO*) 

is the data set reference number for 
the System/360 user asynchronous 
routine. 

GTCSTART (+228,X*E4») 

is the parameter (integer value) 
passed when the 1130 program calls the 
System/360 asynchronous routine. 

GTCPTPRD (+272, X f 110* ) 

is the read buffer for receiving PTOP 
system messages. 



GTCPTPWR (+292, X , 124') 

is the write buffer for 
PTOP system messages. 



transmitting 



GTCSVAR (+312, X'138 1 ) 

is a save area established by the data 
transmission routines in which BTAM 



will save register contents during the 
mainline program processing. 

GTCIRBSV ( + 384, X'180») 

is a save area established by IKDGTIRB 
in which BTAM will save register con- 
tents during the mainline program 
processing. 

System/360 Save Area 

This save area furnishes the means of 
preserving the transmission status of the 
mainline program when the System/360 asyn- 
chronous routine is in control. 

Since the asynchronous routine may use 
data transmission facilities, it could 
cause PTOP to overlay certain fields in the 
GTCB, thus destroying the interrupted 
transmission status of the mainline pro- 
gram. To avoid this, IKDGTIRB obtains 
storage for the save area, places its 
address in the GTCSVINF field of the GTCB, 
and stores the specified fields in the save 
area. 

IKDGTEND indicates when the save area is 
no longer needed, and restores the mainline 
program transmission status. Then the Con- 
troller frees the save area. 

Figure 23 shows the fields that are 
placed in the save area from the GTCB, and 
their displacements from the beginning of 
the save area. 

GTCECB through GTCPRMSV 

correspond to the same fields in the 
GTCB illustrated in Figure 22. Con- 
tents of these fields remain unchanged 
when they are moved to the save area. 
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Dec . 
+ 
+ 4 
+ 8 
+ 12 
+ 16 
+ 20 
+ 24 
+ 28 
+ 32 
+ 36 

+180 



Hex. <- 





4 

8 

C 

10 

14 

18 

1C 

20 



k- 



H- 



-4 Bytes — 
GTCECB 
GTCRDARY 
GTCWRARY 



initialized 
IKDGTNIT. 



during processing performed by 



GTCFLAGS 
r 



GTCRDLNG 



-+„ 



\ 

GTCLSTRD 

GTCLSTWR | GTCWRLNG 

GTCLNGSV | GTCPRMSV 

Reserved 
, 

Reserved 



l" 

B4 



AGTCSVAR 
(144 Bytes) 



X 

sr 



Figure 23. Save Area Format 

AGTCSVAR 

is a double register save area. The 
first 72 bytes are established by all 
the data transmission routines except 
IKDGTIRB for BATM to save register 
contents during System/360 asynchro- 
nous routine processing. The next 72 
bytes are established by IKDGTIRB for 
BATM to save register contents during 
System/360 asynchronous routine 
processing. 

Unit Assignment Table (Module Nam e 
IKDUATBL) 

The unit assignment table is a permanent 
module named IKDUATBL that resides in the 
System/360 link library (SYS1.LINKLIB) . It 
is loaded by the Controller upon the first 
program initialization procedure, is used 
by some of the data transmission routines 
during processing of the user's program, is 
cleared to zeroes by the IKDGTEND routine, 
and is removed from main storage by the 
Controller. 

In its final state, the unit assignment 
table contains the addresses of all GTCBs 
created during initialization processing, 
the entry points of the System/360 data 
transmission modules that are loaded by the 
IKDGTNIT routine, a count of the GTCBs, and 
a save area. The data transmission rou- 
tines use the GTCB address fields to deter- 
mine whether or not a valid GTCB exists for 
the data set reference number passed by the 
user. 

Initially, the unit assignment table 
contains all zeroes. The GTCB address 
fields and the entry point fields are 



Figure 24 shows the format of the unit 
assignment table after all fields have been 
initialized. 

GTCB Addresses (+0, X'00*) 

are the addresses of the starting 
locations of the GTCBs that have been 
created by calls to GTNIT in the 
System/360 program. Each address is 
four bytes long. The value of the 
data set reference number is used as 
an index factor to locate the appro- 
priate GTCB address. 

IKDRDWRT EP Address (+396, X'lSC*) 

is the entry point address of the Read 
and Write Data routine. This address 
is filled in when IKDRDWRT is loaded 
by the IKDGTNIT routine- It is used 
by the Controller to establish linkage 
when the user's program calls GTRED. 

IKDRDWRT EP Address (+400, X , 190 t ) 

is the entry point address of the Read 
and Write Data routine. This address 
is filled in when IKDRDWRT is loaded 
by the IKDGTNIT routine. It is used 
by the Controller to establish linkage 
when the user's program calls GTWRT. 

IKDGTCLT EP Address (+404, X , 194') 

is the entry point address of the 
Control Test routine. This address is 
filled in when IKDGTCLT is loaded by 
the IKDGTNIT routine. 

IKDGTIRB EP Address ( + 408, X'^S') 

is the entry point address of the 
Interface Resolution routine. This 



Dec. Hex. O 
r - 



■4 Bytes- 



GTCB Addresses 
(396 Bytes) 



♦I 

X 



+396 18C 

+400 190 

+404 194 

+408 198 

+412 19C 

+416 1A0^ 



A 

T" Each address occupies four T' 
bytes. A maximum of 99 GTCB | 
addresses is allowed. j 
,. H 

IKDRDWRT EP ADDRESS t j 

_ 4 

IKDRDWRT EP Address I j 
_ ., 

IKDGTCLT EP Address t j 
„ H 

IKDGTIRB EP Address t j 
„ ., 

GTCBCNT j 

SAVEAREA j 

(72 Bytes) ^ 

ST 



+488 1E8 

Figure 24. Unit Assignment Table Format 
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address is filled in when IKDGTIRB is 
loaded by the IKDGTNIT routine. 

GTCBCNT (+412, X , 19C f ) 

is a count of the number of GTCBs that 
have been established. ^This count is 
zero initially, and is incremented by 
one each time a GTCB is created. It 
is used to determine if the data 
transmission routines are to be loaded 
(zero value) or if they are already in 
main storage (nonzero value) . 

SAVEAREA (+416,, X^lAO'") 

is a register save area which is used 
by the Controller whenever the user* s 
mainline program calls one of the data 
transmission routines. The Controller 
establishes this save area for the 
data transmission routine that is 
invoked to save register contents. 

Processing Information in Control Blocks 

The processing of information in the 
PTOP control blocks (GTCOM and GTCB) is 
summarized in the two tables that follow. 
Each table lists the individual fields as 
they appear within the block. Field dis- 
placements in decimal and hexadecimal are 
shown in parentheses. All PTOP routines 



are listed, and the actions that may be 
taken in the fields during processing by 
the routines are indicated in the appropri- 
ate columns. 



Table 5* summarizes the processing of 
information in the GTCOM by the 1130 PTOP 
routines. Table 6 summarizes the process- 
ing of information in the GTCB by the 
System/360 PTOP routines. 



Actions are 
as follows: 



represented by key letters 



•I — initializes the field with 



certain 
time- 



value or address for the first 



R — refers to the field 
tion 



for informa- 
as flags or parameters) or 



(such 

for use (such as system buffers or save 
areas) . 



field by replacing 
original value to bring the infor- 
mation up to date. 



M — modifies the 
its 



C — clears the field to 
it is no longer 
apply. 



zero because 
needed or does not 
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Table 5. Processing Information in the GTCOM 
r t T T" 



h- 



Field Name 



| Module 
| GTNIT 



-+-- 



BITS (+0, /00) | 



RTBSY 
OSRED 
ASPND 
OKNIT 
ERRST 
ASACT 
FNCTN 
MSGTP 
BIT11 

BIT12 



I I,M 



I 

I R 

I 

I R,C 



BITS 2 (+1, /01) | 
9 | I 

I 

10 | 

I 

11 | 

I 

12 | 

I 

13 | 

I 

14 | 

I 

15 I 



LSTRD (+2, /02) j 
Data type | 



Status | 

LSTWT (+3, /03) | 
Data type | 

I 
Data length | 

I 
Status | 

RDCNT (+4, /OH) | | I,M 

WTCNT (+5, /05) | 

RDPTR (+6, /06) | 
J. J 

Key: 

I — initializes field. 
R — refers to field. 
M — modifies field. 
C — clears field. 

L 



Module 

GTRED 



R,C 
R 



C 

C 

C 

I,M 

C 

I,M,C 

I,R,M,C 



+-■ 



I,M 
I,M 



I,M 



Module 

GTWRT 



M 
R 

R,C 
R 

I,M 



C 

C 

I,M,C 

I,M 

I # M # C 

C 

C 



I,C 

I,M 

I,M 



+ 



+ 

y 



Module 
GTCLT 



R f C 



+ 

C 

c 
c 

I f M 

c 
c 
c 



Module j Module 
GTEND I GTP01 



R,C | R f M,C 

C | R f M 

R„C | R,M 

C | R,M 

C | R,M 

C I R,M 

C | R # M 

C | R,M 

I-GTP02 
C 

I-GTP02 
C 



C 

C,I 

C 

C 

C 

C 

C 



C 
C 

M 



H 



R f M 
R,M 
R f M 
R,M 
R # M 
R,M 
R,M 



R,M 
R,M 



R,M 

R,M 

R#.M 

R 

R f M 

R 



— H 
H 

^ 

^ 



(continued) 



96 



Table 5, 

Field 
WTPTR 
SAVST 
RDBUF 

i- 

WTBUF 

ASYNC 

h 

PSWRD 

RDSEQ 
WTSEQ 
DSREF 



Processing Information in the GTCOM (continued) 

Module j Module j Module | Module 
Name | GTNIT | GTRED I GTWRT | GTCLT 






(+7„ /07) 



(+8„ /08) 

(+16„ /10) 

(+17,, /ll) 

(+18,, /12) 

(+19, /13) 



_I J "_" 

I I 



I„R,M 
(+20, /14) 



(+21, /15) 



(+22, /16) 



ASPRM (+23, /17) 



H- 

ASDAT 

NSI 

i- 

AQS 

XR1S 

XR2S 

STS 

OSCNT 

SYSBF 






I 






+~ 



I,M 



I 



Module 
GTEND 



j Module 
j GTP01 



I R»M 



^ 



^ 



R 



■H 



I _R 

I R 
-■I 

I R.M 



— ^ 
— -i 
— ^ 



^ 



R,M 
I I.R 



— ^ 



I I,R.M 



(+24, /18) 
(+25, /19) 



I I.R 



I,M 
+ 

I,R 



I I.R 



+ 

I.R 



I R,M 
H 






(+26, /1A) 

(+28, /1C) 

(+29, /ID) 

(+30, /IE) 

(+31, /IF) 



I I.R 
— -I 

I I.R 

—I 

i I.R 

I I.R 



(+32,, /20) 



I.R 
+ 

I.R 
+ 

I,R 

I.R 
+ ■■ 

R 
+ 



I I.R 
~+ 

I I.R 
~+ 

I I.R 

I I.R 
--+ 



I.R 
+ 

I,R 

+ 

I.R 

+ 

I.R 

+ 



_____! _ I 

I I 






I,R 



I I.M 

I R.M 

.J. 



1 

1 



Key: 



I — initializes field. 
R — refers to field. 
M — modifies field. 
C — clears field. 



Appendix A: Control Block and Table Formats 97 



Table 6. Processing Information in the GTCB 
r T" 



T 1 

Module | Module 
IKDGTEND | IKDGTIRB 

_C | 

C | 

C | R 

C | R 

C | R 

+ _j 

C j R 

-H 



GTCDSRNO 



h 
|( 

I- 

GTCUATBL 

GTCWRBUF 
GTCRDBDF 
GTCASYNC 



Field Name 



(+0, 

C+l, 

(+4, 

(+8, 

(+12, 



X'OO" ) 
X'Ol') 
X'Ok') 

x*oan 

X'OC) 



-+ — 












GTCPASS 



(+16, 
( + 20, 



X'10') 



Module 
IKDGTCLR 



j Module 
| IKDGTNIT 



I I 

I I 
-+ 

4 

+ 


















+ 

I 



Module 
IKDRDWRT 



Module 
IKDGTCLT 



GTCSVINF 



X'14') 



R,C 



j I,R,M 

-+ H 

I I,M 

■+ H 

I R 

^ 



GTCECB 



GTCRDARY 



( + 2U, 
( + 28, 



GTCWRARY 



(+32, 
(+36, 



X-'18») 
+ 

X'lC) 
+ 

X f 20-" ) 



R 



I,R,M 
I,R,M 



R,C 



R 



■+ 

I 

I I 

I 

I I,R,M 

I 

j I,R,M 

I 

I I,M,C 

I 

I R,M,C 

I 

I R,M,C 

I 

I I,R,C 

I 

I IrR,C 
I 

I R,M,C 

I 

j I,R,M,C 

I 

I I,R,M,C 

I 

I I,R,M # C 

I 

j I,R,M,C 

I 

I I»R.M,C 

I 

I 

I I,M,C 

I 

I I,M,C 
-JL 



■H 



GTCFLAGS 



X'21\') 



OKNIT 

RTRD 

ASYNC 

ASYNIT 

All 30 

CANCEL 

SVRTRD 

GTEND 

USEROP 

PTOPQP 

PTPRTI 

PTPRTT 

PTPTIXR 

PTPWTR 

RTPAS 

ERRNIT1 

ERRNIT2 



I 
I 

I R 
I 

I R 
I 
I R 



Key: 



I — initializes field. 
R — refers to field. 
M — modifies field. 
C — clears field. 



(continued) 
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Table 6. Processing Information 

r t 

Module 
IKDGTCLR 



in the GTCB (continued) 



t 1 

Module 
IKDGTIRB 



Field Name 



Module 
IKDGTNIT 



Module 
IKDRDWRT 



Module 
IKDGTCLT 



Module 
IKDGTEND 



— I 



WTEND 

WTCLT 

WRASY 
ENDMSG 

ASYEND 

TENT ION 

COMMN 

WTRD 

CANCTD 

ASYCTD 

RTRCTD 

DATATD 

CANPND 

ASYPND 

RTRPND 

SHORT 

I ■— 

GTCLSTRD 

GTCRDLNG 

I- 

j GTCLSTWR 
y ... 

GTCWRDNG 

GTCLNGSV 

I 

GTCPRMSV 



I.C 



I,C 



( + 40, X f 28') 

(+42. X^A* ) 

( + 44, X^C) 

+- 

(+46, X^E* ) 

(+48, X'30') 

(+50, X , 32M 



+- 

+ 

+ 

+ 

+ 

+ — 



+ 1- 

I 

I,M 



I.C 

IrC 
C 

i»c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

+ 

c 
c 






I 

+ 

I,M 

+ + 









J. 

GTCRDSEQ 
GTCWRSEQ 



J. .— 

GTCRDSIZ 

GTCWRSIZ 



(+52, X , 34 , > 

(+54, x 9 3en 

(+56, X^S') 

(+58, X^A') 






+ 

I 

+ 

I 



+ + 

I,R,M 

I,R,M 
+ + 



C 
+— 

c 

+— 

c 

+ — 

c 
4— 

c 

4 — 






R 

R 

R 
I,R,M 

I,R,M 

I,R,M 

I,M 

R 

I,R,M 

I,R,M 

I,R,M 

I,R,M 

R,,M,C 

R,M,C 

R,M,C 

R,C 

4 \ 

M 

4 .| 

R 
^ 

M 

4 A 

R 

I,R,M 
+ \ 

I,R,M 

I,R,M 
4 ., 

I,R,M 

4 .| 






GTCDCB (+64, X^O*) 
GTCDECB (+128, X^O* ) 



I,M 

I 



R 

R,M 



C 
4 

C 



4 ^ 

R r M 

^ 



Key; 



I — initializes field. 
R — refers to field. 
M — modifies field. 
C — clears field. 



(continued) 
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Table 6. Processing Information in the GTCB (continued) 

Module | Module 
IKDGTCLR J IKDGTNIT 



| Field Name 






|GTCPTPWR (+244, X , F4") 



jGTCSVAR (+264, X'lOS*) 



h 






|GTCIRBSV(+336, X^ISO*) 



Module J Module 
IKDRDWRT | IKDGTCLT 



|GTCDSRAD (+176, X^O 1 ) 
|GTCDSRAD (+176, X'BOM 
|GTCSTART (+180, X , B4') 
|GTCPTPRD (+224, X*E0*> 

I I 






R 



I I 



I 






Module 
IKDGTEND 



R,C 



Module | 
IKDGTIRBJ 

I f R,M 

I,R,M 

I,R,M 



I,R,M 



I,R,M 



I Key: 



I — initializes field. 
R — refers to field. 
M — modifies field. 
C — clears field. 



l 
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APPENDIX B: MICROFICHE DIRECTORY 



The microfiche directory shown in Table 
7 is a guide to named areas of code in the 
program listing, which is contained on 
microfiche cards. The microfiche cards are 
arranged in alphameric order by object 
module name. The object module names are 



listed here in the order they are described 
in the preceding text. The other columns 
provide the module's descriptive name, its 
flowchart identification, its attributes, 
and a synopsis of its function. 



Table 7. Microfiche Directory 

r t ' t t~ 

Module/ J |j 

CSECT j Routine | Chart | 

Name |Name | ID | Attributes 

1130 Transmission 



\r ■ t ' t t t ^ 



Functions 









GTNIT 



GTRED 



GTWRT 



GTCLT 



GTEND 



GTP01 



Initialization 



Read Data 



Write Data 



Control Test 



End Communication 



Telecommunications 
Monitor 






System/360 Transmission 

; T . 

IKDGTCLR | Controller 



IKDGTNIT | Initialization 



AA 



BA 



CA 



DA 



EA 



FA 
to 

FE 



Type 4, 
Subtype 8 

Type 4, 
Subtype 8 



Type 4, 
Subtype 8 

Type 4, 
Subtype 8 



Type 4, 
Subtype 8 

Type 4, 
Subtype 



Establishes communication link be- 
tween 1130 and System/360 CPUs. 

Establishes and maintains ready-to- 
read environment for 1130 problem 
program. 

Processes write requests for 1130 
problem program. 

Provides status information about the 
most recent read or write request 
made by the user. 

Terminates communication link be- 
tween 1130 and System/360 CPUs. 

Processes during interruptions and 
monitors completion of input/output 
requests initiated by GTRED or 
GTWRT. 



-. — T — 






IKDRDWRT 



|Reeid and Write 
Data 



I HA 



IJA 



IKA 



Resident, 

reenterable, 

non-privileged 



(Transient, 
reenterable, 
non- pr i vi 1 eged 

j Resident, 
reenterable, 
non- privileged 



x J- 



[Provides entry points for System/360 
data transmission subroutines and es- 
tablishes linkage to the requested 
routine. 

Establishes communication link be- 
tween System/360 and 1130 CPUs. 



Establishes and maintains ready-to- 
read environment and processes write 
requests for the System/360 problem 
program. 

(continued) 
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Table 7. Microfiche Directory (continued) 

i ' r t 'T 

Module/ J | | 

CSECT J Routine | Chart j 

Name |Name | ID JAtrributes 

System/360 Transmission (continued) 



System/360 Conversion 



Functions 






IKDGTCLT 



IKDGTEND 



IKDGTIRB 



Control Test 



End Communication 



Interface 
Resolution 



None 



LA 



MA, 
MB, 
MC 



Resident, 
reenterable, 
non- privileged 

Transient, 
reenterable, 
non- pr i vi 1 eged 

Resident, 

reenterable, 

privileged 



Provides status information about the 
most recent read or write request 
made by the user. 

Terminates communication link between 
System/360 and 1130 CPUs. 



Processes after input/output inter- 
ruptions occur and monitors the 
completion of input/output opera- 
tions. 



IKDGDCFI 



IKDGDCTI 



IKDGDCFF 



IKDGDCTF 



IKDGDCFE 



IKDGDCTE 



Convert from 
System/360 Integer 
to 1130 Integer 



Convert from 
1130 Integer 
to System/360 
Standard-Length or 
Halfword Integer 

Convert from 

System/360 

Standard-Length 

Real to 1130 

Standard-Precision 

Real 

Convert from 1130 

Standard-Precision 

Real to 

System/ 360 

Standard-Length 

Real 

Convert from 

System/360 

Double-Precision 

Real to 1130 

Extended-Precision 

Real 

Convert from 1130 

Extended-Precision 

Real to 

System/360 

Double-Precision 

Real 



NA, 
NB 



OA, 
OB, 
OC 



PA, 

PB 



PA, 
PB 



QA 



RA 



Reenterable, 
non-privileged 



Reenterable, 
non- privileged 



Converts an array of integers in 
System/360 standard-length or half- 
word format, or alphameric data in 
the System/360 halfword format to 
1130 format. 

Converts an array of integers in the 
1130 format to an array of integers 
in the System/360 standard- length or 
halfword format. 



Reenterable, 
non- privileged 



Reenterable, 
non- privileged 



Reenterable, 
non- privileged 



Reenterable, 
non- privileged 



Converts an array of real numbers 
in the System/360 standard-length 
format to an array of real numbers 
in the 1130 standard-precision 
format. 



Converts an array of real numbers in 
the 1130 standard-precision format to 
an array of real numbers in the 
System/360 standard- length format. 



Converts an array of real numbers in 
System/360 double- precis ion format to 
an array of real numbers in 1130 ex- 
tended-precision format. 



Converts an array of real numbers in 
the 1130 extended-precision format to 
an array of real numbers in System/ 
360 double-precision format. 
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APPENDIX C: DATA TRANSMISSION MESSAGE FORMATS 



Seven messages are constructed by the 
PTOP data transmission routines. They are: 

• Initialization message , which is a sys- 
tem command initialization message. 
The text portion contains the password. 

• Ready-to-read message , which is a sys- 
tem response sense/status message. The 
text portion contains the expected 
length of data in the corresponding 
data message. 

• Data message , which is a system 
response message. The text portion 
contains the actual data transmitted 
from one system to the other. 

• Asynchronous routine reguest message , 
which is a system command sense/status 
message. The text portion contains a 
parameter for the asynchronous routine. 

• Program termination request message , 
which is a system command sense/status 
message. 

• Asynchronous routine ended message , 
which is a system response sense/status 
message. 

• Terminate communication link message , 
which is a system command sense/status 
message. 

Each message begins with the control- 
character seguence DLE STX indicating the 
start of text in transparent- text mode. 
These control characters are supplied by 
the data transmission routines whenever a 
message is prepared and placed in the 
buffer for transmission. 

Header information follows the control- 
character sequence. This information con- 
sists of four 1-byte entries. For a 
description of the entries, see "Field 
Descriptions . " 

The text portion of each message follows 
the header information. It varies in 
length with the message being transmitted. 
The number of bytes included in the text 
portion for the various messages are as 
follows : 

• Initialization message — six bytes. 

• Data message — variable number of 
bytes depending on the length of the 
user-defined data to be transmitted. 



• All other messages — four bytes. 



The text portion is followed by the 
control-character sequence DLE ETX indica- 
ting the end of text in the transparent- 
text mode. These characters are inserted 
during transmission by SCAT2 in the 1130 
system, and by BTAM in the System/360. 



Message Formats in the 1130 and the 
System/360 

The 1130 message appears in the array 
defined as the input/output area in the 
calling sequence that is input to SCAT2. 
The first word of this input/output area 
contains a count of the total number of 
words in the message. Subsequent words in 
the input/output area contain the message. 



The System/360 message appears in the 
buffer specified as the input or output 
area in the BTAM READ or WRITE macro 
instruction. After receipt of data is 
complete, the System/360 checks for any 
transmission errors. 



Many of the message fields contain the 
same kind of information for every message. 
The text portion of the message varies with 
each message. Refer to "Field Descrip- 
tions" for detailed descriptions of the 
various fields in each message. 

Following the detailed field descrip- 
tions, each message is illustrated showing 
its format. Field displacements (in deci- 
mal) for both systems are shown in each 
illustration from the beginning of the 
respective input/output area. The numbers 
at the top of each illustration represent 
1130 words of storage. The numbers at the 
bottom of each illustration represent 
System/360 bytes of storage. A description 
of the contents of the text portion of each 
message follows the illustration of the 
message. 



Field Descriptions 

The message fields described in Table 8 
appear in the input/output area of storage 
in the order of description. The first 
field (I/O Count) appears only in the 1130 
system. All other fields appear in both 
the 1130 and the System/360. 
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Table 8. Message Fields 



Field 
Name 

I/O Count 



DLE STX 



TYPE 



2 Bytes 



1 Byte 



SEQ 






OFFST 
TEXT 



DLE ETX 



Size of 

Field 
+ 

2 Bytes 



1 Byte 



1 Byte 



Varies 



2 Bytes 



Description 



The number of words in either (1) the message to be transmitted j 

from the 1130, including the preceding control-character | 

sequence and the header information, or (2) the message that | 

was received from the System/360, including all control charac- j 

ters and header information. j 

The control-character sequence preceding a message. This 
sequence appears in every message format. Control characters 
are represented by the hexadecimal values 10 and 02 
respectively. 



A hexadecimal value that identifies the type of 
transmitted, as follows: 



message being 



80 — system response message with bits 4 through 7 in the 
field set to zero to indicate a data message. 

88 — system response sense/status message. 

94 — system command initialization message. 






98 — system command sense/status message. 

DATA ID I 1 Byte j In System/360, the data set reference number specified by the 

user. Zero in the 1130 initialization message. For all other 
messages in the 1130, the DATA ID passed in the last message 
received from the System/360. 



The read or write sequence number of this message. Sequence 
numbers start with zero for both read and write, and are 
incremented by one for each message that is received or 
transmitted. When a maximum value of 255 is reached, the 
sequence number is reset to zero. For the initialization 
message, this field contains a hexadecimal value of 48. 



The number of bytes between the start of header information and 
the start of data in the message. 

See individual descriptions of TEXT following each format 
illustration. 






The control-character sequence following a message. This 
sequence appears in every message format that is received. 
Control characters are represented by the hexadecimal values 10 
and 03 respectively. Only the ETX character is transferred to 
storage in System/360. 

RSVD j 2 Bytes j One reserved word of storage following the message in the 1130. 

Note: The numeric values shown with various field names in the illustration of each 



H 



message are hexadecimal values, 



—j 
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Initialization Message 

Figure 25 depicts the format of the initialization message. In PTOP: 

• The 1130 always transmits this message; 

• The System/360 always receives it. 

1130 Words +0 +1 +2 +3 + 4 

I/O Area |I/0 Count |DLE STX |TYPE |DATA |SEQ |OFFST|TEXT (6 Bytes) |ETX | 

j«6 J | 94 | ID j 48 | 04 J "password" | (S/360 | 

I (1130 | | j= o | | | | only) | 

I only) | I I I I I I I 

L J X _X_ X -X X J. J 

S/360 Bytes +0 +2 +4 +6 +12 

Figure 25. Initialization Message Format 



TEXT 

contains the password defined in the 1130 user's program. 

Readv-To-Read Message 

Figure 26 depicts the format of the ready-to-read message. This message is 
transmitted whenever the user's program calls GTRED. 

1130 Words +0 +1 +2 +3 +4 +6 +7 

I T T ~T T T T T T ^ 

I/O Area |I/0 Count |DLE STX JTYPE JDATA j SEQ JOFFSTJTEXT (4 Bytes) |DLE ETX* j RSVD j 

|= 5, 6, 7| j 88 |ID j j 04 |2000+Data Length j | j 

|(H30 | I I I I I I II 

I only) | I I I I I I II 

I | L J L L _X X X «_J 

S/360 Bytes +0 +2 +4 +6 +10 +11 

♦ETX appears in the System/360 buffer only when the message is received. DLE 
ETX appears in the 1130 input/output area only when the message is received. 

Figure 26. Ready-To-Read Message Format 



TEXT 

contains two hexadecimal values, each of which occupies two bytes, as follows: 

• 2000, theit turns on bit 2 (Read Continue bit) of the field. 

• Expected length (in bytes) of the data, excluding control characters and header 
information, to be received in response to this message. 

Note: I/O Count may be 5, 6, or 7 depending on the operation as follows: 
Transmit operation — 5. 
Receive operation — 6 or 7. 
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Data Message 

Figure 27 depicts the format of the data message. This message is transmitted 
whenever the user's program calls GTWRT and specifies an array of data is to be 
transmitted . 

1130 Words +0 +1 +2 +3 +4 +(4+n) +(5+n) 

I T T T T T T T ' T 1 

I/O Area | I/O Count JDLESTX JTYPE JDATA JSEQ JOFFSTJTEXT j DLE ETX* j RSVD j 
I = ** j | 80 | ID j | 04 j Data specified by| j - I 
| (1130 | I I I I | user (variable | | | 
j only) j III! | number of bytes) j j j 
i x x X ._X x -X x x .J 

S/360 Bytes +0 +2 + 4 +6 +(6+x) +(7+x) 

n = number of words of data specified by user. 
x = number of bytes of data specified by user. 

♦ETX appears in the System/360 buffer only when the message is received. DLE 
ETX appears in the 1130 input/output area only when the message is received. 
♦♦I/O Count varies as follows: 

For a transmit operation, it equals 3 + n. 

For a receive operation, it equals 4 + n or 5 + n. 

Figure 27. Data Message Format 



TEXT 

contains the data from the user's array. The number of words or bytes is determined 
by the "elcount" argument specified in the call to GTWRT. 

Asynchronous Routine Request Message 

Figure 28 depicts the format of the asynchronous routine request message. This 
message is transmitted whenever the user's program calls GTWRT and specifies that an 
asynchronous routine is to be scheduled in the other system. 

1130 Words +0 +1 +2 +3 + 4 +6 +7 

I T T T T T T T * T 1 

I/O Area JI/O Count j DLE STX JTYPE JDATA JSEQ JOFFSTJTEXT (4 Bytes) |DLE ETX* JRSVD j 

|= 5, 6, 7 | j 98 j ID j | 04 j 0200+Parameter | j j 

|(H30 | I I I I I I II 

I only) | I I I I I I II 

I X X X X X X X , X ,J 

S/360 Bytes +0 +2 +4 +6 +10 +11 

*ETX appears in the System/360 buffer only when the message is received. DLE 
ETX appears in the 1130 input/output area only when the message is received. 

Figure 28. Asynchronous Routine Request Message Format 



TEXT 

contains two hexadecimal values, each of which occupies two bytes, as follows: 

• 0200, that turns on bit 6 of the field to indicate the asynchronous routine is to be 
invoked. 

• The parameter (integer value) for the asynchronous routine. 

Note : I/O Count may be 5, 6, or 7 depending on the operation as follows: 
Transmit operation — 5. 
Receive operation — 6 or 7. 
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Program Termination Request Message 

Figure 29 depicts the format of the program termination request message. In PTOP # 
this message is: 

• Transmitted by the System/360 whenever the user's program calls GTWRT and specifies 
that the 1130 program is to be ended. 

• Not transmitted by the 1130. 

1130 Words +0 +1 +2 +3 + 4 +6 +7 

I/O Area |I/0 Count |DLE STX |TYPE |DATA |SEQ |OFFST|TEXT (4 Bytes) |DLE ETX |RSVD | 

j == 6 or 7 j j 98 | ID j | 04 | 1000+Optional j (1130 | (1130 | 

|CL130 | I I I I I data | only) | only) | 

I only) | I I I I I I II 

L X J X- X L X X X J 

S/360 Bytes +0 +2 +4 +6 

Figure 29. Program Termination Request Message Format 



TEXT 

contains the hexadecimal value 1000 that turns on bit 3 of the field to indicate the 
request for abnormal termination of the 1130 program. 

Note : I/O Count is 6 or 7 because it is always a receive operation in the 1130. 

Asynchronous Routine Ended Message 

Figure 30 depicts the format of the asynchronous routine ended message. This message 
is transmitted whenever the asynchronous routine indicates to the PTOP program that it 
has completed processing. 

1130 Words +0 +1 +2 +3 + 4 +6 +7 

I/O Area (I/O Count |DLE STX JTYPE JDATA |SEQ JOFFSTJTEXT (4 Bytes) |DLE ETX* j RSVD j 
j= 5, 6, 7| j 88 | ID | I 04 | 0200+Optional j | | 

|(1130 | I I I I I data | | | 

L^ y L_ J I I x x I x x ' 

S/360 Bytes +0 +2 +4 +6 +10 +11 

♦ETX appears in the System/360 buffer only when the message is received. DLE 
ETX appears in the 1130 input/output area only when the message is received. 

Figure 30. Asynchronous Routine Ended Message Format 



TEXT 

contains the hexadecimal value 0200 that turns on bit 6 of the field to indicate the 
asynchronous routine is ended. 

Note : I/O Count may be 5, 6, or 7 depending on the operation as follows: 
Transmit operation — 5. 
Receive operation — 6 or 7. 
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Terminate Communication Link Message 

Figure 31 depicts the format of the terminate communication link message. This 
message is transmitted whenever the System/360 user's mainline program calls GTEND, or 
whenever the 1130 user calls GTEND. 

1130 Words +0 +1 + 2 +3 + 4 +6 +7 

r T T T T T T T T~ 1 

I/O Area | I/O Count jDLE STX JTYPE JDATA |SEQ JOFFSTJTEXT (4 Bytes) JDLE ETX* JRSVD j 

|= 5, 6, 7j | 98 | ID | I 04 | 0800+Optional | | | 

| (1130 | I I I I I data | | | 

I only) | I I I I I I II 

I J X J J L X J. X J 

S/360 Bytes +0 +2 +4 +6 +10 +12 

♦ETX appears in the System/360 buffer only when the message is received. DLE 
ETX appears in the 1130 input/output area only when the message is received. 

Figure 31. Terminate Communication Link Message Format 



TEXT 

contains the hexadecimal value 0800 that turns on bit 4 of the field to indicate the 
closing of a data set. 

Note : I/O Count may be 5, 6 f or 7 depending on the operation as follows: 
Transmit operation — 5. 
Receive operation — 6 or 7. 
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APPENDIX D: DATA CONVERSION FORMATS 



This appendix illustrates the manner in which each System/360 data conversion routine 
converts arithmetic elements (in an array) from the format of one system to the format of 
the other. 

Alphameric conversions are not included in these illustrations since such conversions 
consist only of inverting the elements in the arrays. 




NOTE: 



The low-order bit is lost when no normalization is required. 
GDCFF — Conversion From System/360 Standard-Length Real to 1130 Standard-Precision Real 



1 



23 24 



31 




■fraction'] 




wm 



31 



FRACTION 



NOTE : 

The two low-order bits will be lost in the normalization process. 

GDCTF — Conversion From 1130 Standard-Precision Real to System/360 Standard- Length Real 
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NOTE : 

25 low-order bits will be lost in the process of contraction and normalization. 
GDCFE — Conversion From System/360 Double-Precision Real to 1130 Extended-Precision Real 



7 8 




15 17 



47 



mm 






7 8 




FRACTION 



MCtlON 



1 



63 



NOTE : 

After conversion, the 25 low-order bits of the double-precision data will contain zeros. 

GDCTE — Conversion From 1130 Extended-Precision Real to System/360 Double-Precision Real 
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1 



16 17 




GDCf , I--Conversion from System/360 Standard- Length Integer to 1130 Integer 






1 


15 


s 


HHHHHHIii 


°y ] v 15 


S 





GDCFI — Conversion From System/360 Halfword Integer to 1130 Integer 



Appendix D: Data Conversion Formats 111 



1 



15 





S 


llillliiilllllii 












o, 


' 


1 16 


17 „ 31 


< 




SIGN BIT PROPAGATED 


,-X^M^rSM^ 



GDCTI — Conversion From 1130 Integer to System/360 Standard-Length Integer 



1 



15 



s 


S^^?^w&: : ^H^X 


°„ 1 „ « 


s 


>' ( ''^t^£'^s^ 



GDCTI — Conversion From 1130 Integer to System/360 Halfword Integer 
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APPENDIX E: REGISTER CONTENTS 



This appendix summarizes the contents of registers at various times during processing 
by the data transmission and data conversion routines. Table 9 lists pertinent register 
contents upon entry to and throughout processing by each 1130 PTOP routine. Table 10 
lists pertinent register contents upon entry to each System/360 PTOP routine. 



Table 9. Register Contents for 1130 PTOP Routines 



Module Name 



GTEND 



Register Contents Upon Entry 



Register Contents Throughout 
Processing 

GTCLT I None 



None 



Index Register 1 — Address of pa- 
rameter list 
Index Register 2 — Address of GTCOM 



Index Register 2 — Address of GTCOM 



H 



GTNIT 



Index Register 3 — Address of 
transfer vector table 



Index Register 1 — Address of pa- 
rameter list 
Index Register 2 — Address of GTCOM 



GTP01 

Entry 
GTP02 



Point 



Accumulator — Zero, or a specific 
error code 

Index Register 1 — Value used to 
return control to cippropriate 
data transmission routine after 
1130 asynchronous routine is 
invoked (refer to routine de- 
scription of Telecommunications 
Monitor routine GTP01) 



Index Register 2 ~- address used to 
refer to constants and the GTCOM 

Index Register 2 — Address used to 
refer to constants and the GTCOM 



H 



GTRE1D 



None 



Index Register 1 — Address of pa- 
rameter list 
Index Register 2 — Address of GTCOM 



GTWRT 



None 



I- 

1 Note : 



Index Register 1 — Address of pa- 
rameter list 
Index Register 2 — Address of GTCOM 



H 



GTCOM denotes the 1130 telecommunications control block. 
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Table 10. Register Contents Upon Entry to System/360 PTOP Routines 

General Register Contents Upon Entry 



r t 

| Module Name | 
,. h 

IKDGDCFE, 
J.KDGDCFF, 
IKDGDCFI, 
IKDGDCTE, 
IKDGDCTF, 
IKDGDCTI 

IKDGTCLR 



1 — Address of parameter list 
13, 14, 15 — System/360 standard conventions 

IKDGTCLT | 4 — Address of GTCB associated with specified data set reference 

number 
11 — Address of parameter list 
13, 14, 15 — System/360 standard conventions 



IKDGTEND 



-+ 



1 — Address of parameter list 

13 — Save area address » 

14 — Return address > System/360 standard 

15 — Entry point address ) conventions 



3 — Address of unit assignment table (IKDUATBL) 

4 — Address of GTCB associated with specified data set reference 

number 
11 — Address of parameter list 
13, 14, 15 — System/360 standard conventions 



•H 



IKDGTIRB 



— Address of interruption queue element for this routine 

1 — Address of input/output block associated with input/output 

operation just completed 
13, 14, 15 — System/360 standard conventions 



H 



IKDGTNIT 



IKDRDWRT 



~+ 



3 — Address of unit assignment table (IKDUATBL) 

4 — Address of GTCB associated with specified data set 

reference number if GTCB already exists; or zero 
11 — Address of parameter list 
13, 14, 15 — System/360 standard conventions 



3 — Address of unit assignment table (IKDUATBL) 

4 — Address of GTCB associated with specified data set 
reference number 

6 — Code indicating whether user called GTRED (code = 0) 
or GTWRT (code =4) 
11 — Address of parameter list 
13, 14, 15 — System/360 standard conventions 
y x _ _ 

1 Note ; GTCB denotes the System/360 telecommunications control block. 
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APPENDIX F: ADDITIONAL DIAGNOSTIC AIDS 



This appendix contains additional infor- 
mation that may be useful in diagnosing 
difficulties with the 1130 or System/360 
PTOP jprograms. Included are: a dummy 
tracing routine for use with the 1130 PTOP 
program and pointers to diagnostic aid 
information that may be useful with the 
System/ 3 60 PTOP program. 

1130 Dummy Tracing Routine 

Users of the 1130 data transmission 
routines must ensure that the dummy tracing 
routine (with entry points IOLOG and CPLOG) 
is included in the 1130 system. The dummy 
tracing routine is called by the SCA inter- 
rupt service subroutine SCAT2. Entry point 
IOLOG is entered by a call from SCAT2 
during interruption processing. Entry 
point CPLOG is entered by a call from SCAT2 
during call processing. 

Upon calling the dummy tracing routine, 
SCAT2 passes the following information in 
the accumulator: 

• For IOLOG, a value that depends on the 
operation currently active when the 
interruption occurs, as follows: 



Operation 
Write 



Read 



Timeout 



Value 

Character just 

left- justified. 

Character just 
right- justified. 

Hexadecimal 1111. 



written. 



read, 



• For CPLOG, the control parameter passed 
when SCAT2 was called. 

As included in the 1130 system, the 
dummy tracing routine performs no signifi- 
cant processing; it merely returns control 
to the calling routine. 

The user can incorporate additional cod- 
ing into this dummy tracing routine to help 
diagnose problem areas. For example, a 
tracing routine that stores pertinent 
information in a user-defined trace table 



can be incorporated. Standard conventions 
in regard to saving the contents of the 
accumulator, index registers, and status 
indicators should be observed. 

Figure 32 depicts the coding for a 
sample tracing routine that places the 
information found in the accumulator in a 
table in storage. Comments included in the 
figure explain the purpose of the instruc- 
tions. Instructions enclosed with aster- 
isks are provided in the dummy tracing 
routine included in the 1130 system. All 
other instructions represent those added by 
the installation. 

System/360 Diagnostic Information 

The contents of general registers upon 
entry to the System/360 PTOP routines is 
given in Appendix E. Use of general regis- 
ters during processing by the PTOP routines 
is described in the applicable program 
listings . 

In addition to the PTOP control blocks 
described in Appendix A, the BTAM data 
control block (DCB) and the BTAM data event 
control block (DECB) contain information 
useful as a diagnostic aid. Formats of the 
DCB and the DECB and their use in BTAM are 
described in the following publications: 

IBM System/360 Operating System: 

System Control Blocks , Form C28-6628 

Basic Telecommunications Access 
Method , Form C3 0-20 04 

Basic Telecommunications Access 
Method Program Logic Manual , Form 
Y30-2001 

For additional System/360 diagnostic 
aids,, refer to the publication IBM System/ 
360 Operating System: Programmer's Guide 
to Debugging , Form C28-6670. It describes 
the location of control information, the 
interpretation of dumps, and the tracing of 
program flow (via the save area chain and 
the trace table). 
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************ 

* ENT 

* ENT 
+CPLOG DC 
************ 

STO 
STX 
STS 
* 

LDX 
MDX 
* 

LD 
CPXR1 LDX 
CPST LDS 
************ 

* BSC 
************ 

CPACC BSS 



POINT 
LIMIT 
COUNT 
TABLG 
* 

STORE 



DC 

EQU 

DC 

DC 

STO 
MDX 
MDX 
MDX 

* 

LD 

S 

STO 

LD 

STO 

* 

STEXT BSC 
************ 

♦IOLOG DC 
************ 

STO 
STX 
STS 

* 

LDX 
MDX 
* 

IOEXT LD 
IOXR1 LDX 
IOST LDS 
************ 

* BSC 
************ 

IOACC BSS 

TRABL BSS 
************ 

* END 
************ 



*********** 

IOLOG * 

CPLOG * 

* 

*********** 

CPACC 

1 CPXR1+1 

CPST 

LI *+l 
STORE 

CPACC 
LI *-* 


*********** 

I CPLOG * 
*********** 

1 

TRABL 

400 

LIMIT 

LIMIT 



POINT 
POINT, +1 
COUNT, -1 
STEXT 



POINT 
TABLG 
POINT 
TABLG 
LI COUNT 

LI 
*********** 

* 
*********** 

IOACC 

IOXR1+1 

IOST 

LI *+l 

STORE 

IOACC 

*-* 


*********** 

I IOLOG * 
*********** 

1 

LIMIT 
*********** 

* 
*********** 



Entry point for call processing. 

Beginning of user's tracing routine. 
Save status of calling routine. 



Prepare to log the control parameter in the trace 
table and return. 

Restore status of calling routine. 



Return to calling routine. 

Storage for saving accumulator contents. 
Define pointer to next available space in 

trace table, and the size of the table. 
Define counter for number of items that can 

be stored, and reinitializing constant. 

Store accumulator contents in trace table. 
Update pointer to next space in table. 
Update counter for number of items. 
Return if table is not full. 

Reinitialize pointer to beginning of trace table. 



Reinitialize counter for using the trace table again. 

Return to proper instruction in tracing routine. 
Entry point for interruption processing. 
Save status of calling routine upon entry. 



Prepare to log interruption information in 
trace table and return. 

Restore status of calling routine. 



Return to calling routine. 

Storage for saving accumulator contents. 
Define storage for trace table. 



Figure 32. Sample Tracing Routine 
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APPENDIX G: AUTOCHART SYMBOLS 



Figure 33 contains the functional symbols used on the autocharts in the publications. 
A sample flowchart and detailed explanations of the various symbols are included. 



FUNCTIONAL SYMBOLS 

*****A1 ********** 

* * 

* * 

* PROCESSING * 

* * 

* * 
***************** 



DECISION 



•****A3 ******* 

* * 
* 

* MODIFICATION 
* 

* * 
************** 



*-*-*—*-*-*-*-*-* 

* * 

* SUBROUTINE * 



***************** 



**AS******* 

* * 

* * 
♦LIBRARY ROUTINE* 

* * 

* • 
*********** 



******B1 *********** 


****B2********* 




* * 


* * 




INPUT/OUTPUT 


* TERMINAL * 


ONPAGE 


* * 


* * 


CONNECTOR 




*************** 


**** 


************* 




* * 

* C3 * 

* * 
**** 



OFFPAGE 

CONNECTOR 

***** 

♦XX * 

* C«* 

• * 



EXPLANATION 



****D1 ********* 

♦ * 

♦ ENTRY * 

♦ * 

*************** 



*****E1 ********** 

* SUMMARY * 

* OF PROCESSING * 



BLOCK Dl SHOWS THE ENTRY POINT INTO THE ROUTINE. 



BLOCK El SHOWS A PHASE OF THE PROCESSING DONE BY THIS ROUTINE. 



***************** 



* Fl *.X 



*. REQUIRED 



NEXT 

*****F2********** 

*SUB XX* 

*-*-*-*-*-*-*-*-* 

...X*PERFORM SERVICE* 

* DESCRIBED IN * 

* CHART XX * 
***************** 



******G2* ********* 



BLOCKS Fl AND F2 CONTAIN LABELS ABOVE THE UPPER LEFT CORNER 
CORRESPONDING TO IDENTICAL LABELS FOUND IN THE PROGRAM LISTING. 
AT LOCATION 'LABEL" THE ROUTINE TESTS TO DETERMINE THE NEXT ACTION. 
AT LOCATION 'NEXT 1 THE ROUTINE BRANCHES TO A SUBROUTINE DESCRIBED 
IN ANOTHER CHART IN THIS PUBLICATION. 



A PREDEFINED ROUTINE 



*********** 



************* 



*****H2******* 

* * 

* MODIFY * 

* PROCESSING TO * 

* BE DONE * 

* * 
************** 



BLOCK G2 INDICATES AN INPUT/OUTPUT OPERATION. IN THIS PUBLICATION 
IT REFERS TO TRANSMITTING AND RECEIVING MESSAGES OVER A 
COMMUNICATIONS LINE. 



BLOCK H2 SHOWS MODIFICATION OF THE ROUTINE'S PROCESSING. 





1 


.* 


WHAT IS 


*. 2 








VALUE OF 


• * 




X 




* 


ACTION 


.* 




***** 






*.CODE .* 






♦XX * 






*. .* 




X 


♦ A I* 






* 




**** 


* * 










* 


* 






X 




* Fl 
* 
**** 






fc***K2********* 






* 






* 






* 




RETURN 


* 












* 








*************** 





BLOCK J2 INDICATES THE ROUTINE MAY TAKE THREE DIFFERENT ACTIONS 

BASED ON THE RESULTS OF A TEST. CAUSES THE ROUTINE TO EXIT,. 

CAUSES THE ROUTINE TO PERFORM PROCESSING SHOWN IN CHART XX 



BLOCK K2 SHOWS THE TERMINATION OF THE ROUTINE. 



Figure 33. Autochart Symbols and Sample Flowchart 
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APPENDIX H: ABBREVIATIONS AND ACRONYMS 



This appendix lists the abbreviations 
and acronyms, together with their meanings, 
that are used in the text, figures, and 
flowcharts in this publication. 







GTCECB 


ace 


accumulator 


GTCOM 


ACK 


affirmative acknowledgment 
character 


hex 


addr 


address 


ID 


AEE 


Asynchronous Exit Effector 


initlz 


asgnmnt 


assignment 


intrpt 


async 


asynchronous 


I/O 


bfr 


buffer 


IOBDCBAD 


BSC 


binary synchronous communications 


IRB 


BTAM 


Basic Telecommunications Access 
Method 


IQE 
ISS 


CEA 


channel end appendage 




chars 


characters 


lng 


Ctrl 


control 


LSTRD 


DCB 


data control block 


LSTWT 


dec 


decimal 


LT 


DECB 


data event control block 


ML 


DLE 


data- link escape 


msg 


DSRN 


data set reference number 


NAK 


DSW 


data status word (1130) 


no. 


el 


element 


op 


elcount 


element count 


optn 


ENQ 


enquiry character 


OSCNT 


EOT 


end of transmission character 




EP 


entry point 


OS/360 


EQ 


equal 




ETX 


end of text character 


param 


GT 


greater than 


proc 


GTCB 


System/360 telecommunications 
control block 


prog 
rev 



GTCBCNT GTCB count field in unit assign- 
ment table 



event control block in GTCB 

1130 telecommunications control 
block 

hexadecimal 

identification 

initialization 

interruption 

input/output 

DCB address in the IOB 

interruption request block 

interruption queue element 

Interrupt Service Subroutine (for 
1130) 

length 

last read status field in GTCOM 

last write status field in GTCOM 

less than 

mainline (program) 

message 

negative acknowledgment character 

number 

operation 

option 

System/360 count field in GTCOM 
containing expected length of 
data to be read by System/360 
user program 

operating system for System/360 

parameter 

processing 

program 

receive 
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ref 


reference 


SYN 


reg 


register 


S/360 


rtn 


routine 


TIXR 


SCA 
sw 


synchronous communications 
adapter 

switch 


tmt 
UCB 
WTCNT 



synchronous idle character 

System/360 

initial transparent with reset 

transmit 

unit control block 

write count field in GTCOM 
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INDEX 



Where more than one page reference is 
given, the first page number indicates the 
major reference- 



abbreviations and acronyms 118 

argument list 10 

arrays 

input and output 67 

order of elements in. » 66 

overlapping. 67-6 8 

reformatting elements in... 66 

reordering. 66 

"temparray" for data 
conversion... ........... 68,71-72,74,77 

■temparray" for System/360 

read or write 53 

used as 1130 input buffer 33 

used as 1130 output buffer 33 

"userarray" for data 

conversion 68,71-72,74-75 

"userarray" for 1130 read 
or write.... 34-35,89 

asynchronous routine 

definition of. 15 

invoking in 1130 system 21-23,34,40 

requesting in System/360 21, 32 

requesting in 1130 system 21,33 

scheduling in System/360 30,32,57 

asynchronous routine 
processing 

general information about. ..... .... ... . 15 

in System/360.. 30,32 

in 1130 system 21-22 

autochart symbols 117 

Basic Telecommunications 
Access Method (BTAM) 
(see BTAM) 

binary synchronous 
communications (BSC) 9 

BSC . . 9 

BTAM 

channel end appendage 30 

control blocks used by PTOP. 27 

error handling 30 

use of by PTOP 10,12,27 

buffers 

PTOP System/360 read 93 

PTOP System/360 write. 93 

PTOP 1130 system read and 

write - 90,34 

System/360 user read 25,91 

System/360 user write. ...... 25, 91 

1130 system user read 19,89 

1130 system user write. . . 19, 89 

CALL macro instruction. 9-11 

CALL statement 

FORTRAN 9-10 

1130 Assembler Language 9-1 

channel end appendage 30 



chart identifications 
for System/360 data 

conversion routines 102 

for System/360 data 

transmission routines......... 101 

for 1130 data transmission 
routines 101 

Close, use of in 1130 34,36 

communication areas for PTOP. 14,18,27 

communication link 

establishing 14 

reestablishing 15 , 23, 33 

terminating 15, 23, 33 

control blocks 

BTAM use of by PTOP .. . 27 

DCB 27, 91 

DECB 27, 93 

definition of 11 

formats of 87-95 

GTCB . 90,14,24-25, 27 

GTCOM 87, 14, 17-18 

IQE . 32, 56-57 

IRB 32, 57 

processing information in 95-100 

control characters 10,19,28,103-104 

control flow 

overall 14-15 

System/360 23-32 

1130 system.. 15-23 

control test routine 
setting status code 

indicators for 15 

in System/360 (IKDGTCLT). 30,54-55 

1130 system (GTCLT) 21,35-36 

controller 

establishing linkage to 25 

residence of .... . 10 

description of 51- 52 

conversion of data 

between arrays 66-67 

general information about... 66,15,21,30 

in place 66-67 

routines for 66,12 

data control block (DCB) 27, 91 

data conversion 

formats of data before and 

after conversion 109-112 

general information about... 66,15,21,30 
routines for... 66,12 

data event control block 
(DECB) . 27, 93 

data flow 

overall. 14-15 

System/360 23-32 

1130 system 15-23 

data set reference number 

associated GTCB. 27 

GTCB created for 27 

implied in unit assignment 

table 27 

used as an index.... 51 
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data transmission 

between an 1130 system and 

a System/360 14 

in System/360 . . . 12 

in 1130 system 12 

data transmission messages . 103-108 

data transmission modules 

in System/360 51 

in 1130 33 

directory of modules 101 

dummy tracing routine (1130) 115 

end communication routine 

in System/360 (IKDGTEND) . . 31,55 

in 1130 system (GT^ND) . 23,36 

error processing 

general information about 15 

in System/360.... 30,56 

in 1130 system 19,21,37 

exit to resident supervisor by 
1130 system. 39 

flowcharts 

System/ 360 conversion 

routines 78-86 

System/ 360 data 

transmission routines 59-65 

1130 data transmission 

routines 41-50 

formats of 

control blocks 87 

data before and after 

conversion. 109-112 

data transmission messages 103-108 

save area used when 
System/360 asynchronous 

routine is in control 94 

System/360 
telecommunications control 

block 90 

unit assignment table. 94 

1130 telecommunications 

control block 87 

functions used by 

System/360 PTOP program 12 

1130 PTOP program 12 

GTCB (System/360 

telecommunications control 

block) 90,14,24-25,27 

GTCLT routine description. » . 35-36 

GTCOM (1130 telecommunications 

control block) 87,14,17-18 

GTEND routine* description.. 36 

GTNIT routine description 33-34 

GTP01 routine description 37-40 

GTRED routine description. 34-35 

GTWRT routine description 35 

IKDGDCFE routine description 75 

IKDGDCFF routine description. 71-73 

IKDGDCFI routine description. ... 68-70 
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